home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / meta27 / mffonts1.lzh / inputs / eusmch.mf < prev    next >
Text File  |  1990-07-15  |  115KB  |  3,526 lines

  1. % EUSMCH.MF                     June 1990
  2. % This Metafont file is part of AMSFonts 2.0.
  3. % Copyright (C) 1990, American Mathematical Society.
  4. % All rights reserved.  Copying of this file is authorized only if either:
  5. %   (1) you make absolutely no changes to your copy including filename; OR
  6. %   (2) if you do make changes, you first rename it to some other filename.
  7. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  8. % Euler Symbol Medium
  9.  
  10. % ----- This font is set up as Math Symbol Font, \textfont2, page 427 of TeXbook
  11. % however, there are some alternate characters in nonstandard positions
  12.  
  13. %input waits;
  14. mode_setup;
  15. font_coding_scheme "TeX math symbols subset";
  16.  
  17. %     EULER SCRIPT MEDIUM PARAMETERS
  18.  
  19. %     These all in bitpad numbers (.001"):
  20.  
  21.      programem =      3700;     
  22.      baseline  =     0;
  23.      ascender  =     capheight;
  24.      descender =     700;
  25.      depthy    =     700;     % depthy   =     500;
  26.      capheight =     2600;
  27.       lcbody    =     1700;     %1700 for medium, 1800 for bold.
  28.      dotheight =     2600;
  29.      theight       =     2330;
  30.      lfigheight =     capheight;
  31.      nfigbody  =     lcbody;
  32.      nfigascender =     ascender;
  33.      nfigdescender =     descender;
  34.  
  35.  
  36. input eubase;
  37. more_side(100h#); % DEK
  38.  
  39. % information for positioning of math accents --- DEK
  40. skewchar=oct"060"; skew#=1/36programem*h#;
  41. ligtable "A": skewchar kern 5skew#;
  42. ligtable "I": "J": skewchar kern 2skew#;
  43. charcode:=skewchar; shipout nullpicture;
  44.  
  45.  
  46. "aleph";
  47.  
  48. charbegin( 64, 2668h#, capheight*v#, baseline );
  49.  
  50. n := 10;
  51. t1 := 0;
  52. t2 := 1;
  53. t3 := 2;
  54. t4 := 4;
  55. t5 := 5;
  56. t6 := 6;
  57. t7 := 7;
  58. t8 := 8;
  59. t9 := 10;
  60. t10 := 11;
  61.  
  62. adj_fill.A()                         % fixed x points
  63.      ()                         % fixed y points
  64.      ((2,1), (3,2), (7,3), (8,4))          % tied points
  65.      ((4,5), (9,10))                    % verticals
  66.      ((5,6), (1,10))                    % horizontals
  67.      ((2449,529){-321,229}...{-1,1}          % 0
  68.       (1915,952){-314,259}...          % 1
  69.       (1601,1211){-1.551,1.262}...          % 2
  70.       (669,1959){-932,748}...{-63,638}     % 3
  71.       (302,2549){-112,0}...{-112,0}          % 4
  72.       (190,2549)--                    % 5
  73.       (190,1820){1,-1}...{257,-205}          % 6
  74.       (699,1347){105,-87}...{105,-87}     % 7
  75.       (804,1260){555,-387}...          % 8
  76.       (1525,704){998,-815}...{1,-1}          % 9
  77.       (2294,2){79,0}...{79,0}          % 10
  78.       (2373,2)--cycle);               % 11
  79.  
  80. n := 7;
  81. t1 := 0;
  82. t2 := 1;
  83. t3 := 3;
  84. t4 := 4;
  85. t5 := 7;
  86. t6 := 10;
  87. t7 := 11;
  88.  
  89. adj_fill.B(1, 6)                    % fixed x points
  90.      ()                         % fixed y points
  91.      ((3,3), (4,4))                    % tied points
  92.      ((2,5))                         % verticals
  93.      ((6,7))                         % horizontals
  94.      ((250,5){111,384}...{111,384}          % 0
  95.       (361,389){0,1}...               % 1
  96.       (426,986){337,550}...{1,1}          % 2
  97.       (699,1347)--                    % 3
  98.       (804,1260){-31,-7}...               % 4
  99.       (773,1253){-580,-590}...          % 5
  100.       (614,1051){-215,-375}...          % *6
  101.       (558,878){0,-1}...               % 7
  102.       (668,550){1,-1}...               % 8
  103.       (842,462){448,-119}...{1,0}          % *9
  104.       (1116,431){-65,-426}...{-65,-426}     % 10
  105.       (1051,5)--cycle);               % 11
  106.  
  107. n := 7;
  108. t1 := 1;
  109. t2 := 3;
  110. t3 := 4;
  111. t4 := 7;
  112. t5 := 8;
  113. t6 := 10;
  114. t7 := 12;
  115.  
  116. adj_fill.C()                         % fixed x points
  117.      ()                         % fixed y points
  118.      ((2,5), (3,6))                    % tied points
  119.      ((4,5), (1,7))                    % verticals
  120.      ((2,6))                         % horizontals
  121.      ((2450,1894){-58,-19}...{-58,-19}     % 0
  122.       (2392,1875){-10,14}...               % 1
  123.       (2230,1977){-1,0}...{-1,0}          % 2
  124.       (2003,1977){-156,-16}...{-156,-16}     % 3
  125.       (1847,1961){-1,0}...               % 4
  126.       (1593,2001){-1,1}...               % 5
  127.       (1536,2157){0,1}...{0,392}          % 6
  128.       (1536,2549)--                    % 7
  129.       (1625,2549){126,-501}...          % 8
  130.       (1684,2439){1,-1}...               % 9
  131.       (1843,2406){1,0}...               % 10
  132.       (2288,2406){1,0}...{0,-1}          % 11
  133.       (2450,2259)--cycle);               % 12
  134.  
  135. n := 6;
  136. t1 := 0;
  137. t2 := 1;
  138. t3 := 2;
  139. t4 := 3;
  140. t5 := 4;
  141. t6 := 7;
  142.  
  143. adj_fill.D()                         % fixed x points
  144.      ()                         % fixed y points
  145.      ((1,6), (3,2), (4,1), (6,5))          % tied points
  146.      ((2,5))                         % verticals
  147.      ()                         % horizontals
  148.      ((1847,1961){-1,-1}...               % 0
  149.       (1601,1300){0,-1}...{0,-1}          % 1
  150.       (1601,1211)--                    % 2
  151.       (1915,952){-1,1}...               % 3
  152.       (1800,1228){0,1}...               % 4
  153.       (1855,1732){203,749}...          % *5
  154.       (1920,1894){147.8,245.5}...{413,187}     % *6
  155.       (2003,1977)--cycle);               % 7
  156.  
  157. endchar(0);
  158.  
  159. % UPPER CASE
  160. set_stem_round(230,350,270,270,290,310);
  161.  
  162. "smua";
  163.  
  164. charbegin( "A", 2653h#, capheight*v#, baseline );
  165.  
  166. n := 11;
  167. t1 := 0;
  168. t2 := 1;
  169. t3 := 4;
  170. t4 := 5;
  171. t5 := 7;
  172. t6 := 9;
  173. t7 := 11;
  174. t8 := 12;
  175. t9 := 14;
  176. t10 := 18;
  177. t11 := 25;
  178.  
  179. adj_fill.A(1)                         % fixed x points
  180.      (7, 8)                         % fixed y points
  181.      ((1,5), (2,1), (3,2), (4,3), (7,4), (8,4))% tied points
  182.      ((6,9))                         % verticals
  183.      ((5,10), (1,11))               % horizontals
  184.      ((2199,2519){-377,-119}...{-377,-119}     % 0
  185.       (1822,2400){-207,-62}...          % 1
  186.       (1626,2292){-1,-1}...               % 2
  187.       (1382,1870){-527,-1261}...{-126,-432}     % *3
  188.       (1099,1031){-78,-158}...{-78,-158}     % 4
  189.       (1021,873){-174,-335}...          % 5
  190.       (579,139){-1,-1}...               % 6
  191.       (200,-36){-1,0}...               % 7
  192.       (-32,57){-1,1}...               % 8
  193.       (-131,313){0,1}...               % 9
  194.       (-74,450){1,1}...{1,0}               % 10
  195.       (38,485)--                    % 11
  196.       (38,485){1,0}...               % 12
  197.       (152,434){1,-1}...               % 13
  198.       (177,367){0,-1}...               % 14
  199.       (169,307){-100,-540}...          % 15
  200.       (158,217){0,-1}...               % 16
  201.       (196,151){1,-1}...               % 17
  202.       (290,116){1,0}...               % 18
  203.       (447,198){1,1}...               % 19
  204.       (617,473){478,1040}...{413,1047}     % *20
  205.       (925,1238){422,1046}...          % 21
  206.       (1243,1937){583,1093}...          % *22
  207.       (1508,2331){1,1}...               % 23
  208.       (1787,2488){683,212}...{1,0}          % *24
  209.       (2191,2543)--cycle);               % 25
  210.  
  211. n := 9;
  212. t1 := 0;
  213. t2 := 2;
  214. t3 := 6;
  215. t4 := 7;
  216. t5 := 9;
  217. t6 := 10;
  218. t7 := 13;
  219. t8 := 16;
  220. t9 := 18;
  221.  
  222. adj_fill.B(1)                         % fixed x points
  223.      (9)                         % fixed y points
  224.      ((3,6), (4,7), (5,1), (6,5))          % tied points
  225.      ((4,7))                         % verticals
  226.      ((2,8))                         % horizontals
  227.      ((2631,306){-1,-1}...               % 0
  228.       (2310,40){-569,-360}...          % *1
  229.       (2062,-54){-1,0}...               % 2
  230.       (1927,-4){-1,1}...               % 3
  231.       (1873,107){-73,291}...               % *4
  232.       (1854,287){0,1}...{0,1}          % 5
  233.       (1852,873){-3,158}...{-3,158}          % 6
  234.       (1849,1031){-10,1338}...{-10,1338}     % 7
  235.       (1839,2369){-17,31}...{-17,31}          % 8
  236.       (1822,2400)--                    % 9
  237.       (2199,2519){-40,-38}...          % 10
  238.       (2159,2481){-40,-38}...          % 11
  239.       (2106,2371){-54,-763}...          % 12
  240.       (2093,1259){0,-1}...               % 13
  241.       (2119,476){74,-840}...               % 14
  242.       (2205,229){1,-1}...               % 15
  243.       (2289,206){1,0}...               % 16
  244.       (2425,251){296,172}...{1,1}          % *17
  245.       (2585,378)--cycle);               % 18
  246.  
  247. n := 4;
  248. t1 := 0;
  249. t2 := 1;
  250. t3 := 2;
  251. t4 := 3;
  252.  
  253. adj_fill.C()                         % fixed x points
  254.      ()                         % fixed y points
  255.      ((1,7), (2,2), (3,3), (4,6))          % tied points
  256.      ()                         % verticals
  257.      ((2,3))                         % horizontals
  258.      ((1849,1031){-750,0}...{-750,0}          % 0
  259.       (1099,1031)--                    % 1
  260.       (1021,873){831,0}...{831,0}          % 2
  261.       (1852,873)--cycle);               % 3
  262.  
  263. endchar(0);
  264.  
  265. "smub";
  266.  
  267. charbegin( "B", 2618h#, capheight*v#, baseline );
  268. n := 7;
  269. t1 := 0;
  270. t2 := 3;
  271. t3 := 4;
  272. t4 := 5;
  273. t5 := 6;
  274. t6 := 7;
  275. t7 := 9;
  276.  
  277. adj_fill.A(1)                         % fixed x points
  278.      ()                         % fixed y points
  279.      ((1,6), (3,1), (4,2), (5,3), (6,4), (7,5))% tied points
  280.      ((2,5))                         % verticals
  281.      ()                         % horizontals
  282.      ((296,180){1,0}...               % 0
  283.       (772,407){1,1}...               % 1
  284.       (919,739){199,909}...{0,1}          % *2
  285.       (971,1316){0,1082}...{0,1082}          % 3
  286.       (971,2398)--                    % 4
  287.       (1229,2419){0,-964}...{0,-1}          % 5
  288.       (1229,1455){-13,-164}...{-13,-164}     % 6
  289.       (1216,1291){-99,-787}...          % 7
  290.       (1087,712){-213,-507}...{-1,-1}     % 8
  291.       (759,180)--cycle);               % 9
  292.  
  293. n := 13;
  294. t1 := 0;
  295. t2 := 2;
  296. t3 := 5;
  297. t4 := 6;
  298. t5 := 9;
  299. t6 := 12;
  300. t7 := 13;
  301. t8 := 15;
  302. t9 := 17;
  303. t10 := 18;
  304. t11 := 22;
  305. t12 := 24;
  306. t13 := 25;
  307.  
  308. adj_fill.B(1, 12)                    % fixed x points
  309.      (6, 7, 10)                    % fixed y points
  310.      ((1,9), (3,2), (4,1), (6,7), (7,7), (13,8))% tied points
  311.      ((5,8), (2,11))                    % verticals
  312.      ((4,9))                         % horizontals
  313.      ((1321,1407){1,0}...               % 0
  314.       (1854,1593){1,1}...               % 1
  315.       (1995,1950){0,1}...               % 2
  316.       (1875,2266){-1,1}...               % 3
  317.       (1634,2379){-646,153}...{-1,0}          % *4
  318.       (1229,2419){-258,-21}...{-258,-21}     % 5
  319.       (971,2398){-1,0}...               % 6
  320.       (440,2181){-1,-1}...               % 7
  321.       (312,1929){0,-1}...               % 8
  322.       (329,1804){88,-417}...               % 9
  323.       (353,1702){0,-1}...               % 10
  324.       (317,1583){-1,-1}...{-1,0}          % 11
  325.       (190,1528)--                    % 12
  326.       (190,1528){-1,0}...               % 13
  327.       (117,1564){-1,1}...               % 14
  328.       (54,1768){0,1}...               % 15
  329.       (244,2189){1,1}...{447,68}          % 16
  330.       (958,2523){255,121}...{255,121}     % 17
  331.       (1213,2644){16,-107}...{16,-107}     % 18
  332.       (1229,2537){1,0}...               % 19
  333.       (1807,2489){900,-183}...          % *20
  334.       (2129,2354){1,-1}...               % 21
  335.       (2251,2048){0,-1}...               % 22
  336.       (2075,1617){-1,-1}...{-601,-307}     % 23
  337.       (1812,1417){11,-26}...{11,-26}          % 24
  338.       (1823,1391)--cycle);               % 25
  339.  
  340. n := 10;
  341. t1 := 0;
  342. t2 := 3;
  343. t3 := 5;
  344. t4 := 6;
  345. t5 := 7;
  346. t6 := 8;
  347. t7 := 9;
  348. t8 := 12;
  349. t9 := 16;
  350. t10 := 17;
  351.  
  352. adj_fill.C()                         % fixed x points
  353.      ()                         % fixed y points
  354.      ((3,8), (4,9), (5,3), (6,4), (9,5), (10,6))% tied points
  355.      ((2,8))                         % verticals
  356.      ((4,7), (1,9))                    % horizontals
  357.      ((196,-14){1098,0}...               % 0
  358.       (1294,-14){1,0}...               % 1
  359.       (2222,352){1,1}...               % 2
  360.       (2427,853){0,1}...               % 3
  361.       (2269,1230){-1,1}...{-1,0}          % 4
  362.       (1823,1391){-502,16}...{-502,16}     % 5
  363.       (1321,1407){-1,0}...{0,1}          % 6
  364.       (1229,1455)--                    % 7
  365.       (1216,1291){660,75}...               % 8
  366.       (1466,1303){1,0}...               % 9
  367.       (1796,1263){546,-155}...          % *10
  368.       (2012,1148){1,-1}...               % 11
  369.       (2156,810){0,-1}...               % 12
  370.       (2009,351){-1,-1}...               % 13
  371.       (1752,222){-667,-174}...          % *14
  372.       (1342,177){-1,0}...{-1,0}          % 15
  373.       (759,180){-463,0}...{-463,0}          % 16
  374.       (296,180)--cycle);               % 17
  375.  
  376. endchar(0);
  377.  
  378. "smuc";
  379.  
  380. charbegin( "C", 2031h#, capheight*v#, baseline );
  381. n := 17;
  382. t1 := 0;
  383. t2 := 1;
  384. t3 := 3;
  385. t4 := 5;
  386. t5 := 7;
  387. t6 := 9;
  388. t7 := 12;
  389. t8 := 15;
  390. t9 := 18;
  391. t10 := 19;
  392. t11 := 21;
  393. t12 := 24;
  394. t13 := 27;
  395. t14 := 29;
  396. t15 := 31;
  397. t16 := 33;
  398. t17 := 34;
  399.  
  400. adj_fill.A(10)                         % fixed x points
  401.      (2, 9, 17)                    % fixed y points
  402.      ((1,1), (17,1))                    % tied points
  403.      ((7,12), (5,14), (3,16))          % verticals
  404.      ((8,11), (6,13), (4,15))          % horizontals
  405.      ((914,1881){1,1}...               % 0
  406.       (1031,1922){1,0}...               % 1
  407.       (1146,1879){1,-1}...               % 2
  408.       (1161,1729){-56,-261}...          % 3
  409.       (1192,1557){1,-1}...               % 4
  410.       (1332,1520){1,0}...               % 5
  411.       (1600,1640){1,1}...               % 6
  412.       (1719,2007){0,1}...               % 7
  413.       (1607,2349){-1,1}...               % 8
  414.       (1254,2477){-1,0}...               % 9
  415.       (724,2282){-1,-1}...               % 10
  416.       (509,1875){-291,-1028}...          % *11
  417.       (433,1254){0,-1}...               % 12
  418.       (517,677){324,-990}...               % *13
  419.       (757,264){1,-1}...               % 14
  420.       (1189,71){1,0}...               % 15
  421.       (1569,229){1,1}...{166,754}          % 16
  422.       (1710,537){39,25}...{39,25}          % 17
  423.       (1749,562)--                    % 18
  424.       (1919,389){-219,-467}...          % 19
  425.       (1791,190){-1,-1}...               % 20
  426.       (1099,-56){-1,0}...               % 21
  427.       (474,200){-1,1}...               % 22
  428.       (240,602){-316,961}...               % *23
  429.       (158,1161){0,1}...               % 24
  430.       (254,1833){370,1148}...          % *25
  431.       (528,2309){1,1}...               % 26
  432.       (1320,2592){1,0}...               % 27
  433.       (1851,2424){1,-1}...               % 28
  434.       (1974,2050){0,-1}...               % 29
  435.       (1795,1582){-1,-1}...               % 30
  436.       (1344,1409){-1,0}...               % 31
  437.       (955,1533){-1,1}...               % 32
  438.       (873,1745){0,1}...{1,1}          % 33
  439.       (914,1881)--cycle);               % 34
  440.  
  441. endchar(0);
  442.  
  443. "smud";
  444.  
  445. charbegin( "D", 2875h#, capheight*v#, baseline );
  446. n := 14;
  447. t1 := 0;
  448. t2 := 1;
  449. t3 := 3;
  450. t4 := 9;
  451. t5 := 11;
  452. t6 := 13;
  453. t7 := 14;
  454. t8 := 16;
  455. t9 := 19;
  456. t10 := 20;
  457. t11 := 23;
  458. t12 := 27;
  459. t13 := 28;
  460. t14 := 29;
  461.  
  462. adj_fill.A(1)                         % fixed x points
  463.      (6, 7)                         % fixed y points
  464.      ((6,1), (7,1), (9,2), (10,3), (13,4), (14,5))% tied points
  465.      ((5,8), (3,11))                    % verticals
  466.      ((4,9), (2,12))                    % horizontals
  467.      ((211,16){1078,0}...               % 0
  468.       (1289,16){1,0}...               % 1
  469.       (2311,434){1,1}...               % 2
  470.       (2728,1451){0,1}...               % 3
  471.       (2477,2214){-1,1}...               % 4
  472.       (2002,2471){-1188,347}...{-1,0}     % *5
  473.       (1289,2561){0,75}...{0,75}          % 6
  474.       (1289,2636){-15,23}...{-15,23}          % 7
  475.       (1274,2659){-211,-114}...{-211,-114}     % 8
  476.       (1063,2545){-1,0}...               % 9
  477.       (253,2224){-1,-1}...               % 10
  478.       (78,1814){0,-1}...               % 11
  479.       (132,1607){1,-1}...{1,0}          % 12
  480.       (224,1566)--                    % 13
  481.       (224,1566){1,0}...               % 14
  482.       (331,1624){1,1}...               % 15
  483.       (368,1749){0,1}...               % 16
  484.       (341,1994){0,1}...               % 17
  485.       (425,2202){1,1}...{1,0}          % 18
  486.       (1039,2431){250,-2}...{250,-2}          % 19
  487.       (1289,2429){1,0}...               % 20
  488.       (1829,2362){896,-257}...          % *21
  489.       (2185,2172){1,-1}...               % 22
  490.       (2458,1431){0,-1}...               % 23
  491.       (2379,865){-304,-962}...          % *24
  492.       (2154,469){-1,-1}...               % 25
  493.       (1800,269){-865,-270}...          % *26
  494.       (1289,199){-1,0}...               % 27
  495.       (789,199){-2,0}...{-475,0}          % 28
  496.       (314,199)--cycle);               % 29
  497.  
  498. n := 6;
  499. t1 := 0;
  500. t2 := 3;
  501. t3 := 4;
  502. t4 := 5;
  503. t5 := 6;
  504. t6 := 9;
  505.  
  506. adj_fill.B()                         % fixed x points
  507.      ()                         % fixed y points
  508.      ((1,5), (3,2), (4,3), (6,4))          % tied points
  509.      ((2,5))                         % verticals
  510.      ()                         % horizontals
  511.      ((314,199){1,0}...               % 0
  512.       (879,444){1,1}...               % 1
  513.       (997,739){160,841}...               % *2
  514.       (1039,1285){0,1}...{0,1146}          % 3
  515.       (1039,2431)--                    % 4
  516.       (1289,2429){0,-867}...               % 5
  517.       (1289,1562){0,-1}...               % 6
  518.       (1202,855){-336,-1188}...          % *7
  519.       (953,374){-164,-175}...{-164,-175}     % 8
  520.       (789,199)--cycle);               % 9
  521.  
  522. endchar(0);
  523.  
  524. "smue";
  525.  
  526. charbegin( "E", 2052h#, capheight*v#, baseline );
  527. n := 18;
  528. t1 := 0;
  529. t2 := 2;
  530. t3 := 5;
  531. t4 := 8;
  532. t5 := 10;
  533. t6 := 12;
  534. %t7 := 14;
  535. t7 := 14.5; % DEK
  536. t8 := 16;
  537. t9 := 17;
  538. t10 := 18;
  539. t11 := 21;
  540. t12 := 23;
  541. t13 := 25;
  542. t14 := 28;
  543. t15 := 29;
  544. t16 := 32;
  545. t17 := 34;
  546. t18 := 37;
  547.  
  548. adj_fill.A(1, 4, 14, 15)               % fixed x points
  549.      (8, 10, 18)                    % fixed y points
  550.      ((9,1), (10,1))                    % tied points
  551.      ((7,11), (5,13), (3,16))          % verticals
  552.      ((6,12), (14,15), (2,17))          % horizontals
  553.      ((1865,392){-187,-376}...          % 0
  554.       (1783,252){-1,-1}...               % 1
  555.       (1048,-45){-1,0}...               % 2
  556.       (621,16){-730,235}...               % *3
  557.       (318,190){-1,1}...               % 4
  558.       (157,639){0,1}...               % 5
  559.       (386,1175){1,1}...{524,76}          % 6
  560.       (876,1402){3,38}...{3,38}          % 7
  561.       (879,1440){-273,91}...               % 8
  562.       (592,1607){-1,1}...               % 9
  563.       (455,1997){0,1}...               % 10
  564.       (627,2406){1,1}...               % 11
  565.       (1249,2616){1,0}...               % 12
  566.       (1628,2473){1,-1}...               % 13
  567.       (1718,2239){0,-1}...               % 14
  568.       (1640,2026){-1,-1}...               % 15
  569.       (1495,1942){-1,0}...{-1,1}          % 16
  570.       (1384,1981)--                    % 17
  571.       (1384,1981){-1,1}...               % 18
  572.       (1360,2060){0,1}...               % 19
  573.       (1408,2171){486,715}...          % 20
  574.       (1453,2296){0,1}...               % 21
  575.       (1391,2423){-1,1}...               % 22
  576.       (1145,2499){-1,0}...               % 23
  577.       (867,2387){-1,-1}...               % 24
  578.       (700,1954){0,-1}...               % 25
  579.       (837,1604){1,-1}...               % 26
  580.       (1074,1483){609,-164}...{1,0}          % *27
  581.       (1446,1440){0,-93}...{0,-93}          % 28
  582.       (1446,1347){-1,0}...               % 29
  583.       (945,1295){-806,-199}...          % *30
  584.       (640,1148){-1,-1}...               % 31
  585.       (453,695){0,-1}...               % 32
  586.       (618,244){1,-1}...               % 33
  587.       (1107,90){1,0}...               % 34
  588.       (1527,288){1,1}...{106,609}          % 35
  589.       (1659,557){43,13}...{43,13}          % 36
  590.       (1702,570)--cycle);               % 37
  591.  
  592. endchar(0);
  593.  
  594. "smuf";
  595.  
  596. %charbegin( "F", 2204h#, capheight*v#, baseline );
  597. charbegin( "F", (2204+100)*h#, capheight*v#, baseline ); % DEK
  598. n := 14;
  599. t1 := 0;
  600. t2 := 2;
  601. t3 := 4;
  602. t4 := 5;
  603. t5 := 6;
  604. t6 := 9;
  605. t7 := 11;
  606. t8 := 12;
  607. t9 := 13;
  608. t10 := 15;
  609. t11 := 17;
  610. t12 := 19;
  611. t13 := 22;
  612. t14 := 23;
  613.  
  614. adj_fill.A(1, 12)                    % fixed x points
  615.      (7, 9, 12, 13)                    % fixed y points
  616.      ((3,1), (4,2), (7,3), (8,3))          % tied points
  617.      ((6,10))                    % verticals
  618.      ((5,11), (2,14))               % horizontals
  619.      ((2514,2528){-148,-275}...          % 0
  620.       (2366,2253){-148,-275}...          % 1
  621.       (2203,2127){-1,0}...               % 2
  622.       (2043,2159){-528,155}...{-720,241}     % 3
  623.       (1556,2304){-258,64}...{-258,64}     % 4
  624.       (1298,2368){-584,140}...          % 5
  625.       (1033,2409){-1,0}...               % 6
  626.       (523,2225){-1,-1}...               % 7
  627.       (403,1963){0,-1}...               % 8
  628.       (416,1811){181,-733}...          % 9
  629.       (447,1686){0,-1}...{-1,-1}          % 10
  630.       (407,1570)--                    % 11
  631.       (407,1570){-1,-1}...               % 12
  632.       (303,1516){-1,0}...               % 13
  633.       (181,1570){-1,1}...               % 14
  634.       (128,1738){0,1}...               % 15
  635.       (330,2242){1,1}...               % 16
  636.       (1130,2525){1,0}...{599,-114}          % 17
  637.       (1298,2507){258,93}...{258,93}          % 18
  638.       (1556,2600){0,-126}...{0,-126}          % 19
  639.       (1556,2474){559,-128}...          % 20
  640.       (2112,2361){303,-48}...          % 21
  641.       (2231,2346){1,0}...               % 22
  642.       (2369,2429){84,130}...{84,130}          % 23
  643.       (2453,2559)--cycle);               % 24
  644.  
  645. n := 10;
  646. t1 := 0;
  647. t2 := 1;
  648. t3 := 5;
  649. t4 := 10;
  650. t5 := 11;
  651. t6 := 13;
  652. t7 := 14;
  653. t8 := 16;
  654. t9 := 22;
  655. t10 := 25;
  656.  
  657. adj_fill.B(8)                         % fixed x points
  658.      (2, 10)                         % fixed y points
  659.      ((1,4), (6,2), (7,1), (10,4))          % tied points
  660.      ((6,7))                         % verticals
  661.      ((4,5), (3,9))                    % horizontals
  662.      ((91,421){1,1}...               % 0
  663.       (213,468){1,0}...               % 1
  664.       (287,447){1,-1}...               % 2
  665.       (355,332){170,-416}...               % 3
  666.       (434,202){1,-1}...               % 4
  667.       (704,92){1,0}...               % 5
  668.       (1091,300){1,1}...               % 6
  669.       (1244,571){207,660}...               % *7
  670.       (1298,960){0,1}...{0,309}          % 8
  671.       (1298,1269){-608,0}...{-608,0}          % 9
  672.       (690,1269){69,113}...{69,113}          % 10
  673.       (759,1382){539,0}...{539,0}          % 11
  674.       (1298,1382){0,986}...{0,986}          % 12
  675.       (1298,2368)--                    % 13
  676.       (1556,2304){0,-922}...{0,-922}          % 14
  677.       (1556,1382){535,0}...{535,0}          % 15
  678.       (2091,1382){-103,-113}...{-103,-113}     % 16
  679.       (1988,1269){-432,0}...{-432,0}          % 17
  680.       (1556,1269){0,-168}...               % 18
  681.       (1556,1101){0,-1}...               % 19
  682.       (1487,625){-267,-817}...          % *20
  683.       (1289,284){-1,-1}...               % 21
  684.       (504,-56){-1,0}...               % 22
  685.       (129,104){-1,1}...               % 23
  686.       (39,305){0,1}...{1,1}               % 24
  687.       (91,421)--cycle);               % 25
  688. mathcorr(100h#); % DEK
  689. endchar(0);
  690.  
  691. "smug";
  692.  
  693. %charbegin( "G", 2038h#, capheight*v#, depthy*v#);
  694. charbegin( "G", 2038h#, capheight*v#, 2/3descender*v#); % DEK
  695. n := 13;
  696. t1 := 0;
  697. t2 := 1;
  698. t3 := 3;
  699. t4 := 5;
  700. t5 := 7;
  701. t6 := 9;
  702. t7 := 11;
  703. t8 := 12;
  704. t9 := 15;
  705. t10 := 17;
  706. t11 := 19;
  707. t12 := 21;
  708. t13 := 22;
  709.  
  710. adj_fill.A(8)                         % fixed x points
  711.      (1)                         % fixed y points
  712.      ((1,2), (13,1))                    % tied points
  713.      ((6,9), (4,11), (1,2))               % verticals
  714.      ((7,8), (5,10), (3,12))               % horizontals
  715.      ((1839,1445){-186,-46}...{-186,-46}     % 0
  716.       (1653,1399){-80,-402}...          % 1
  717.       (1526,1106){-1,-1}...               % 2
  718.       (1072,937){-1,0}...               % 3
  719.       (675,1113){-1,1}...               % 4
  720.       (485,1688){0,1}...               % 5
  721.       (722,2290){1,1}...               % 6
  722.       (1160,2462){1,0}...               % 7
  723.       (1492,2339){1,-1}...               % 8
  724.       (1587,2119){0,-1}...               % 9
  725.       (1532,1919){-1,-1}...{-1,0}          % 10
  726.       (1282,1841)--                    % 11
  727.       (1276,1779){596,-122}...          % 12
  728.       (1446,1748){1,0}...               % 13
  729.       (1739,1885){1,1}...               % 14
  730.       (1839,2154){0,1}...               % 15
  731.       (1728,2442){-1,1}...               % 16
  732.       (1255,2585){-1,0}...               % 17
  733.       (486,2329){-1,-1}...               % 18
  734.       (214,1684){0,-1}...               % 19
  735.       (417,1071){1,-1}...               % 20
  736.       (1046,825){1,0}...{307,223}          % 21
  737.       (1572,976)--cycle);               % 22
  738.  
  739. n := 10;
  740. t1 := 0;
  741. t2 := 1;
  742. t3 := 3;
  743. t4 := 7;
  744. t5 := 8;
  745. t6 := 9;
  746. t7 := 12;
  747. t8 := 14;
  748. t9 := 16;
  749. t10 := 17;
  750.  
  751. adj_fill.B()                         % fixed x points
  752.      (1, 9)                         % fixed y points
  753.      ((1,3), (4,2), (5,1), (10,3))          % tied points
  754.      ((4,6), (2,8))                    % verticals
  755.      ((3,7))                         % horizontals
  756.      ((221,73){-1,-1}...               % 0
  757.       (168,-53){0,-1}...               % 1
  758.       (287,-331){1,-1}...               % 2
  759.       (746,-489){1,0}...               % 3
  760.       (1565,-148){1,1}...               % 4
  761.       (1766,272){272,1115}...          % *5
  762.       (1837,967){0,1}...{0,1}          % 6
  763.       (1839,1445)--                    % 7
  764.       (1572,976){0,-1}...               % 8
  765.       (1582,635){10,-341}...               % 9
  766.       (1528,172){-235,-789}...          % *10
  767.       (1347,-154){-1,-1}...               % 11
  768.       (896,-343){-1,0}...               % 12
  769.       (586,-241){-1,1}...               % 13
  770.       (504,-61){-122,625}...               % 14
  771.       (452,77){-1,1}...               % 15
  772.       (355,115){-1,0}...{-1,-1}          % 16
  773.       (221,73)--cycle);               % 17
  774.  
  775. endchar(0);
  776.  
  777. "smuh";
  778.  
  779. %charbegin( "H", 3075h#, capheight*v#, baseline );
  780. charbegin( "H", (3075+50)*h#, capheight*v#, baseline ); % DEK
  781. n := 9;
  782. t1 := 1;
  783. t2 := 2;
  784. t3 := 7;
  785. t4 := 8;
  786. t5 := 9;
  787. t6 := 10;
  788. t7 := 13;
  789. t8 := 16;
  790. t9 := 17;
  791.  
  792. adj_fill.A(9)                         % fixed x points
  793.      (4, 6)                         % fixed y points
  794.      ((1,3), (2,1), (4,2), (5,2))          % tied points
  795.      ((3,7))                         % verticals
  796.      ((2,8))                         % horizontals
  797.      ((1508,2493){-180,-80}...{-180,-80}     % 0
  798.       (1328,2413){-244,0}...{-244,0}          % 1
  799.       (1084,2413){-1,0}...               % 2
  800.       (699,2374){-617,-149}...          % *3
  801.       (467,2264){-1,-1}...               % 4
  802.       (349,2022){0,-1}...               % 5
  803.       (364,1878){185,-848}...          % 6
  804.       (396,1731){0,-1}...{-1,-1}          % 7
  805.       (368,1630)--                    % 8
  806.       (368,1630){-1,-1}...               % 9
  807.       (247,1562){-1,0}...               % 10
  808.       (158,1610){-1,1}...               % 11
  809.       (111,1711){-63,272}...               % *12
  810.       (95,1882){0,1}...               % 13
  811.       (306,2309){1,1}...               % 14
  812.       (627,2493){778,248}...               % *15
  813.       (1084,2557){1,0}...{605,-13}          % 16
  814.       (1512,2544)--cycle);               % 17
  815.  
  816. n := 12;
  817. t1 := 0;
  818. t2 := 1;
  819. t3 := 5;
  820. t4 := 8;
  821. t5 := 8.667;
  822. t6 := 9;
  823. t7 := 10;
  824. t8 := 11;
  825. t9 := 12;
  826. t10 := 15;
  827. t11 := 17;
  828. t12 := 18;
  829.  
  830. adj_fill.B(1, 5, 11)                    % fixed x points
  831.      (2, 12)                         % fixed y points
  832.      ((1,6), (6,1), (7,3), (8,4), (9,5), (12,6))% tied points
  833.      ((4,8))                         % verticals
  834.      ((3,10))                    % horizontals
  835.      ((59,354){1,1}...               % 0
  836.       (163,394){1,0}...               % 1
  837.       (277,367){1,-1}...               % 2
  838.       (327,283){157,-378}...               % 3
  839.       (378,189){1,-1}...               % 4
  840.       (556,123){1,0}...               % 5
  841.       (844,258){1,1}...               % 6
  842.       (1022,663){240,1114}...          % *7
  843.       (1084,1372){0,1}...{-14,861}          % 8
  844.       (1084,2413)--                    % 9
  845.       (1328,2413){0,-979}...               % 10
  846.       (1328,1434){0,-2}...{0,-140}          % 11
  847.       (1328,1294){0,-1}...               % 12
  848.       (1243,680){-328,-1042}...          % *13
  849.       (1000,252){-1,-1}...               % 14
  850.       (396,-41){-1,0}...               % 15
  851.       (112,68){-1,1}...               % 16
  852.       (21,259){0,1}...{1,1}               % 17
  853.       (59,354)--cycle);               % 18
  854.  
  855. n := 4;
  856. t1 := 0;
  857. t2 := 1;
  858. t3 := 2;
  859. t4 := 3;
  860.  
  861. adj_fill.C()                         % fixed x points
  862.      ()                         % fixed y points
  863.      ((1,8), (2,4), (3,5), (4,7))          % tied points
  864.      ()                         % verticals
  865.      ((2,3))                         % horizontals
  866.      ((2175,1434){-847,0}...{-847,0}          % 0
  867.       (1328,1434)--                    % 1
  868.       (1328,1294){828,0}...{828,0}          % 2
  869.       (2156,1294)--cycle);               % 3
  870.  
  871. n := 13;
  872. t1 := 0;
  873. t2 := 2;
  874. t3 := 5;
  875. t4 := 6;
  876. t5 := 7;
  877. t6 := 10;
  878. t7 := 13;
  879. t8 := 14;
  880. t9 := 15;
  881. t10 := 17;
  882. t11 := 21;
  883. t12 := 24;
  884. t13 := 26;
  885.  
  886. adj_fill.D(1, 8)                    % fixed x points
  887.      (9, 13)                         % fixed y points
  888.      ((4,7), (5,8), (7,9), (8,9))          % tied points
  889.      ((3,11))                    % verticals
  890.      ((6,10), (2,12))               % horizontals
  891.      ((3028,332){-179,-290}...          % 0
  892.       (2886,109){-1,-1}...               % 1
  893.       (2542,-47){-1,0}...               % 2
  894.       (2324,46){-1,1}...               % 3
  895.       (2183,343){-190,793}...          % *4
  896.       (2134,839){0,1}...{43,671}          % 5
  897.       (2156,1294){19,140}...{19,140}          % 6
  898.       (2175,1434){100,545}...          % 7
  899.       (2340,2023){399,969}...          % *8
  900.       (2574,2403){1,1}...               % 9
  901.       (2949,2574){1,0}...               % 10
  902.       (3084,2541){1,-1}...               % 11
  903.       (3148,2423){0,-1}...{-1,-1}          % 12
  904.       (3103,2310)--                    % 13
  905.       (3103,2310){-1,-1}...               % 14
  906.       (3007,2255){-1,0}...               % 15
  907.       (2922,2301){-1,1}...               % 16
  908.       (2780,2364){-1,0}...               % 17
  909.       (2638,2309){-1,-1}...               % 18
  910.       (2528,2126){-191.1,-483.1}...          % *19
  911.       (2447,1826){-258,-1384}...          % *20
  912.       (2380,925){0,-1}...               % 21
  913.       (2425,431){172,-779}...          % *22
  914.       (2552,146){1,-1}...               % 23
  915.       (2684,109){1,0}...               % 24
  916.       (2816,199){1,1}...{301,542}          % 25
  917.       (2964,389)--cycle);               % 26
  918.  
  919. mathcorr(50h#); % DEK
  920. endchar(0);
  921.  
  922. "smui"; 
  923.  
  924. %charbegin( 125, 1395h#, capheight*v#, baseline );
  925. %charbegin( 123, 1395h#, capheight*v#, baseline ); % DEK
  926. charbegin( "I", 1395h#, capheight*v#, baseline ); % NGB
  927.  
  928. n := 8;
  929. t1 := 1;
  930. t2 := 2;
  931. t3 := 7;
  932. t4 := 9;
  933. t5 := 10;
  934. t6 := 12;
  935. t7 := 15;
  936. t8 := 16;
  937.  
  938. adj_fill.A(8)                         % fixed x points
  939.      (4, 5)                         % fixed y points
  940.      ((1,3), (2,1), (4,2), (5,2))          % tied points
  941.      ((3,6))                         % verticals
  942.      ((2,7))                         % horizontals
  943.      ((1336,2461){-175,-39}...{-175,-39}     % 0
  944.       (1161,2422){-231,0}...{-231,0}          % 1
  945.       (930,2422){-1,0}...               % 2
  946.       (568,2379){-598,-167}...          % *3
  947.       (332,2255){-1,-1}...               % 4
  948.       (245,2065){0,-1}...               % 5
  949.       (255,1983){154,-518}...          % 6
  950.       (287,1855){0,-1}...               % 7
  951.       (237,1737){-1,-1}...{-1,0}          % 8
  952.       (158,1704)--                    % 9
  953.       (158,1704){-1,0}...               % 10
  954.       (78,1741){-1,1}...               % 11
  955.       (10,1940){0,1}...               % 12
  956.       (160,2300){1,1}...               % 13
  957.       (521,2489){916,255}...               % *14
  958.       (1076,2555){1,0}...{354,-16}          % 15
  959.       (1386,2534)--cycle);               % 16
  960.  
  961. n := 10;
  962. t1 := 0;
  963. t2 := 1;
  964. t3 := 5;
  965. t4 := 8;
  966. t5 := 9;
  967. t6 := 10;
  968. t7 := 11;
  969. t8 := 13;
  970. t9 := 15;
  971. t10 := 16;
  972.  
  973. adj_fill.B(1, 9)                    % fixed x points
  974.      (2, 10)                         % fixed y points
  975.      ((1,4), (5,1), (6,3), (10,4))          % tied points
  976.      ((4,7))                         % verticals
  977.      ((3,8))                         % horizontals
  978.      ((25,377){1,1}...               % 0
  979.       (130,420){1,0}...               % 1
  980.       (227,364){1,-1}...               % 2
  981.       (259,259){176,-742}...               % 3
  982.       (321,138){1,-1}...               % 4
  983.       (454,102){1,0}...               % 5
  984.       (717,234){1,1}...               % 6
  985.       (875,562){213,867}...               % *7
  986.       (930,1101){0,1}...{0,1321}          % 8
  987.       (930,2422)--                    % 9
  988.       (1161,2422){0,-1295}...          % 10
  989.       (1161,1127){0,-1}...               % 11
  990.       (836,168){-1,-1}...               % 12
  991.       (379,-52){-1,0}...               % 13
  992.       (92,49){-1,1}...               % 14
  993.       (0,254){0,1}...{1,1}               % 15
  994.       (25,377)--cycle);               % 16
  995.  
  996. endchar(0);
  997.  
  998. "smuj";
  999.  
  1000. %charbegin( "J", 1674h#, capheight*v#, depthy*v#);
  1001. charbegin( "J", 1674h#, capheight*v#, 2/3descender*v#); % DEK
  1002. n := 16;
  1003. t1 := 0;
  1004. t2 := 2;
  1005. t3 := 4;
  1006. t4 := 5;
  1007. t5 := 6;
  1008. t6 := 7;
  1009. t7 := 10;
  1010. t8 := 12;
  1011. t9 := 14;
  1012. t10 := 15;
  1013. t11 := 18;
  1014. t12 := 20;
  1015. t13 := 24;
  1016. t14 := 29;
  1017. t15 := 31;
  1018. t16 := 33;
  1019.  
  1020. adj_fill.A(10)                         % fixed x points
  1021.      (1, 16)                         % fixed y points
  1022.      ((1,3), (4,1), (5,2), (9,2), (10,1), (16,3))% tied points
  1023.      ((8,11), (6,13), (2,15))          % verticals
  1024.      ((9,10), (7,12), (3,14))          % horizontals
  1025.      ((358,1566){1,0}...               % 0
  1026.       (459,1629){1,1}...               % 1
  1027.       (503,1850){0,1}...               % 2
  1028.       (629,2201){1,1}...{347,45}          % 3
  1029.       (1160,2428){0,-1133}...{0,-1133}     % 4
  1030.       (1160,1295){-12,-126}...{-12,-126}     % 5
  1031.       (1148,1169){0,-295}...               % 6
  1032.       (1160,652){0,-1}...               % 7
  1033.       (1102,167){-225,-801}...          % *8
  1034.       (935,-149){-1,-1}...               % 9
  1035.       (582,-315){-1,0}...               % 10
  1036.       (337,-229){-1,1}...               % 11
  1037.       (250,72){0,1}...               % 12
  1038.       (596,820){1,1}...{752,294}          % 13
  1039.       (1148,1169)--                    % 14
  1040.       (1160,1295){-648,-249}...          % 15
  1041.       (477,873){-1,-1}...               % 16
  1042.       (126,403){-474,-934}...          % *17
  1043.       (3,-61){0,-1}...               % 18
  1044.       (128,-369){1,-1}...               % 19
  1045.       (469,-478){1,0}...               % 20
  1046.       (783,-392){639,330}...               % *21
  1047.       (1108,-148){1,1}...               % 22
  1048.       (1323,242){290,966}...               % *23
  1049.       (1398,818){0,1}...               % 24
  1050.       (1398,2376){0,1}...               % 25
  1051.       (1398,2460){232,78}...{232,78}          % 26
  1052.       (1630,2538){-11,44}...{-11,44}          % 27
  1053.       (1619,2582){-474,8}...               % 28
  1054.       (1398,2581){-1,0}...               % 29
  1055.       (414,2193){-1,-1}...               % 30
  1056.       (207,1765){0,-1}...               % 31
  1057.       (254,1613){1,-1}...{1,0}          % 32
  1058.       (358,1566)--cycle);               % 33
  1059.  
  1060. endchar(0);
  1061.  
  1062. "smuk";
  1063.  
  1064. charbegin( "K", 2847h#, capheight*v#, baseline );
  1065. n := 9;
  1066. t1 := 1;
  1067. t2 := 2;
  1068. t3 := 6;
  1069. t4 := 7;
  1070. t5 := 8;
  1071. t6 := 9;
  1072. t7 := 11;
  1073. t8 := 13;
  1074. t9 := 14;
  1075.  
  1076. adj_fill.A(9)                         % fixed x points
  1077.      (4, 6)                         % fixed y points
  1078.      ((1,3), (2,1), (4,2), (5,2))          % tied points
  1079.      ((3,7))                         % verticals
  1080.      ((2,8))                         % horizontals
  1081.      ((1476,2490){-164,-77}...{-164,-77}     % 0
  1082.       (1312,2413){-254,0}...{-254,0}          % 1
  1083.       (1058,2413){-1,0}...               % 2
  1084.       (446,2204){-1,-1}...               % 3
  1085.       (349,2007){0,-1}...               % 4
  1086.       (359,1875){85,-587}...               % 5
  1087.       (382,1750){0,-1}...{-1,-1}          % 6
  1088.       (349,1616)--                    % 7
  1089.       (349,1616){-1,-1}...               % 8
  1090.       (234,1566){-1,0}...               % 9
  1091.       (131,1608){-1,1}...               % 10
  1092.       (74,1832){0,1}...               % 11
  1093.       (238,2223){1,1}...               % 12
  1094.       (1202,2558){1,0}...{416,-26}          % 13
  1095.       (1498,2540)--cycle);               % 14
  1096.  
  1097. n := 10;
  1098. t1 := 0;
  1099. t2 := 1;
  1100. t3 := 5;
  1101. t4 := 9;
  1102. t5 := 10;
  1103. t6 := 11;
  1104. t7 := 12;
  1105. t8 := 14;
  1106. t9 := 16;
  1107. t10 := 17;
  1108.  
  1109. adj_fill.B(9)                         % fixed x points
  1110.      (2, 10)                         % fixed y points
  1111.      ((1,6), (4,1), (5,3), (6,4), (7,5), (10,6))% tied points
  1112.      ((4,5))                         % verticals
  1113.      ((3,8))                         % horizontals
  1114.      ((45,358){1,1}...               % 0
  1115.       (146,401){1,0}...               % 1
  1116.       (237,384){1,-1}...               % 2
  1117.       (302,299){234,-393}...               % 3
  1118.       (379,194){1,-1}...               % 4
  1119.       (533,128){1,0}...               % 5
  1120.       (836,273){1,1}...               % 6
  1121.       (1000,576){222,757}...{0,1}          % *7
  1122.       (1058,1030){0,1383}...{0,1383}          % 8
  1123.       (1058,2413)--                    % 9
  1124.       (1312,2413){0,-1109}...{0,-1109}     % 10
  1125.       (1312,1304){-12,-108}...{-12,-108}     % 11
  1126.       (1300,1196){0,-1}...               % 12
  1127.       (947,218){-1,-1}...               % 13
  1128.       (401,-30){-1,0}...               % 14
  1129.       (80,82){-1,1}...               % 15
  1130.       (6,255){0,1}...{1,1}               % 16
  1131.       (45,358)--cycle);               % 17
  1132.  
  1133. n := 4;
  1134. t1 := 0;
  1135. t2 := 1;
  1136. t3 := 2;
  1137. t4 := 3;
  1138.  
  1139. adj_fill.C()                         % fixed x points
  1140.      ()                         % fixed y points
  1141.      ((1,8), (2,4), (3,5), (4,7))          % tied points
  1142.      ()                         % verticals
  1143.      ((2,3))                         % horizontals
  1144.      ((1375,1304){-63,0}...{-63,0}          % 0
  1145.       (1312,1304)--                    % 1
  1146.       (1300,1196){100,0}...{100,0}          % 2
  1147.       (1400,1196)--cycle);               % 3
  1148.  
  1149. n := 12;
  1150. t1 := 0;
  1151. t2 := 2;
  1152. t3 := 5;
  1153. t4 := 6;
  1154. t5 := 10;
  1155. t6 := 12;
  1156. t7 := 13;
  1157. t8 := 14;
  1158. t9 := 16;
  1159. t10 := 21;
  1160. t11 := 25;
  1161. t12 := 27;
  1162.  
  1163. adj_fill.D(1, 6, 8)                    % fixed x points
  1164.      (12)                         % fixed y points
  1165.      ((3,7), (4,8), (7,9), (8,9))          % tied points
  1166.      ((4,10))                    % verticals
  1167.      ((5,9), (2,11))                    % horizontals
  1168.      ((2752,329){-199,-580}...          % 0
  1169.       (2615,94){-1,-1}...               % 1
  1170.       (2311,-46){-1,0}...               % 2
  1171.       (2011,69){-1,1}...               % 3
  1172.       (1861,292){-471,904}...{-461,904}     % 4
  1173.       (1400,1196){-25,108}...{-25,108}     % 5
  1174.       (1375,1304){559,763}...          % 6
  1175.       (1934,2067){569,763}...          % 7
  1176.       (2205,2377){1,1}...               % 8
  1177.       (2405,2532){383,209}...          % *9
  1178.       (2588,2586){1,0}...               % 10
  1179.       (2778,2503){1,-1}...               % 11
  1180.       (2849,2351){0,-1}...{-1,-1}          % 12
  1181.       (2786,2218)--                    % 13
  1182.       (2786,2218){-1,-1}...               % 14
  1183.       (2660,2166){-1,0}...               % 15
  1184.       (2562,2249){-181,383}...          % 16
  1185.       (2444,2336){-1,0}...               % 17
  1186.       (2255,2250){-410,-326}...          % *18
  1187.       (2034,2010){-435,-596}...          % 19
  1188.       (1599,1414){-1.144,-1.64}...{-18,-27}     % 20
  1189.       (1581,1387){7,-66}...               % 21
  1190.       (1588,1321){.5728,-1.879}...          % 22
  1191.       (1930,674){342,-647}...          % 23
  1192.       (2255,232){1,-1}...               % 24
  1193.       (2413,154){1,0}...               % 25
  1194.       (2579,217){1,1}...{174,392}          % 26
  1195.       (2685,388)--cycle);               % 27
  1196.  
  1197. endchar(0);
  1198.  
  1199. "smul";
  1200.  
  1201. charbegin( "L", 2449h#, capheight*v#, baseline );
  1202. rot := identity slanted -1/6; % DEK
  1203.  
  1204. n := 7;
  1205. t1 := 0;
  1206. t2 := 8;
  1207. t3 := 10;
  1208. t4 := 11;
  1209. t5 := 13;
  1210. t6 := 15;
  1211. t7 := 19;
  1212.  
  1213. adj_fill.A(7)                         % fixed x points
  1214.      (1)                         % fixed y points
  1215.      ((1,3), (3,1), (4,1), (7,2))          % tied points
  1216.      ((2,5))                         % verticals
  1217.      ((3,6))                         % horizontals
  1218.      ((545,651){457,312}...               % 0
  1219.       (791,854){1,1}...               % 1
  1220.       (936,1132){272,792}...               % *2
  1221.       (1063,1646){171,930}...          % 3
  1222.       (1176,2104){241,705}...          % *4
  1223.       (1304,2351){1,1}...               % 5
  1224.       (1527,2449){1,0}...               % 6
  1225.       (1695,2375){1,-1}...               % 7
  1226.       (1751,2221){0,-1}...               % 8
  1227.       (1770,2100){1,-1}...{1,0}          % 9
  1228.       (1887,2056)--                    % 10
  1229.       (1887,2056){1,0}...               % 11
  1230.       (2019,2134){1,1}...               % 12
  1231.       (2059,2288){0,1}...               % 13
  1232.       (1991,2479){-1,1}...               % 14
  1233.       (1696,2581){-1,0}...               % 15
  1234.       (1146,2383){-1,-1}...               % 16
  1235.       (925,2040){-372,-850}...          % *17
  1236.       (774,1533){-221,-1144}...{-1,-1}     % 18
  1237.       (535,777)--cycle);               % 19
  1238.  
  1239. n := 8;
  1240. t1 := 0;
  1241. t2 := 3;
  1242. t3 := 8;
  1243. t4 := 9;
  1244. t5 := 13;
  1245. t6 := 15;
  1246. t7 := 19;
  1247. t8 := 22;
  1248.  
  1249. adj_fill.B()                         % fixed x points
  1250.      (5, 8)                         % fixed y points
  1251.      ((3,3), (4,2))                    % tied points
  1252.      ((1,8))                         % verticals
  1253.      ((3,6), (2,7))                    % horizontals
  1254. %     ((2125,971){115,-476}...          % 0
  1255. %      (2138,781){0,-1}...               % 1
  1256. %      (2027,410){-1,-1}...               % 2
  1257. %      (1755,265){-1,0}...               % 3
  1258.      (((2125,971){115,-476}...          % 0 % DEK
  1259.       (2138,781){0,-1}...               % 1
  1260.       (2027,410){-1,-1}...               % 2
  1261.       (1755,265){-1,0})slanted1/6{-1,0}...     % 3
  1262.       (1519,306){-553,163}...          % *4
  1263.       (1202,428){-1145,522}...          % 5
  1264.       (800,613){-547,222}...               % *6
  1265.       (655,650){-1,0}...{-504,-93}          % 7
  1266.       (545,651){-10,126}...{-10,126}          % 8
  1267.       (535,777){-1,-1}...               % 9
  1268.       (370,641){-784,-493}...          % 10
  1269.       (225,526){-1,-1}...{-59,-444}          % 11
  1270.       (25,53)--                    % 12
  1271.       (105,11){93,346}...               % 13
  1272.       (270,341){1,1}...               % 14
  1273.       (496,450){1,0}...{0,-12}          % 15
  1274.       (496,438){1,0}...               % 16
  1275.       (1035,208){723,-410}...          % 17
  1276.       (1393,34){613,-233}...               % *18
  1277. %      (1648,-25){1,0}...               % 19
  1278. %      (2054,178){1,1}...               % 20
  1279. %      (2237,746){0,1}...{-86,450}          % 21
  1280. %      (2198,992)--cycle);               % 22
  1281.       {1,0}((1648,-25){1,0}...          % 19 % DEK
  1282.       (2054,178){1,1}...               % 20
  1283.       (2237,746){0,1}...{-86,450}          % 21
  1284.       (2198,992))slanted1/6--cycle);          % 22
  1285.  
  1286. endchar(0);
  1287.  
  1288. "smum";
  1289.  
  1290. charbegin( "M", 3437h#, capheight*v#, baseline );
  1291. n := 10;
  1292. t1 := 0;
  1293. t2 := 1;
  1294. t3 := 3;
  1295. t4 := 6;
  1296. t5 := 7;
  1297. t6 := 8;
  1298. t7 := 9;
  1299. t8 := 12;
  1300. t9 := 14;
  1301. t10 := 15;
  1302.  
  1303. adj_fill.A(1, 9)                    % fixed x points
  1304.      (2, 5, 10)                    % fixed y points
  1305.      ((1,3), (5,1), (6,2), (10,3))          % tied points
  1306.      ((4,7))                         % verticals
  1307.      ((3,8))                         % horizontals
  1308.      ((46,333){1,1}...               % 0
  1309.       (143,375){1,0}...               % 1
  1310.       (286,272){193,-425}...               % 2
  1311.       (439,172){1,0}...               % 3
  1312.       (602,260){1,1}...               % 4
  1313.       (746,550){195,755}...               % *5
  1314.       (797,1015){0,1}...{0,1221}          % 6
  1315.       (797,2236)--                    % 7
  1316.       (935,2097){0,-837}...               % 8
  1317.       (935,1260){0,-1}...               % 9
  1318.       (852,547){-320,-1171}...          % *10
  1319.       (615,89){-1,-1}...               % 11
  1320.       (310,-45){-1,0}...               % 12
  1321.       (68,64){-1,1}...               % 13
  1322.       (-2,213){0,1}...{1,1}               % 14
  1323.       (46,333)--cycle);               % 15
  1324.  
  1325. n := 16;
  1326. t1 := 0;
  1327. t2 := 1;
  1328. t3 := 5;
  1329. t4 := 6;
  1330. t5 := 7;
  1331. t6 := 14;
  1332. t7 := 15;
  1333. t8 := 16;
  1334. t9 := 18;
  1335. t10 := 19;
  1336. t11 := 22;
  1337. t12 := 23;
  1338. t13 := 27;
  1339. t14 := 30;
  1340. t15 := 32;
  1341. t16 := 33;
  1342.  
  1343. adj_fill.B(15)                         % fixed x points
  1344.      (3, 10, 12, 13)                    % fixed y points
  1345.      ((1,6), (4,4), (5,5), (6,2), (7,1), (16,6))% tied points
  1346.      ((9,10))                    % verticals
  1347.      ((8,11), (2,14))               % horizontals
  1348.      ((3367,2300){-1,-1}...               % 0
  1349.       (3241,2242){-1,0}...               % 1
  1350.       (3167,2257){-1,1}...               % 2
  1351.       (3119,2316){-185,394}...          % 3
  1352.       (3094,2372){-1,1}...               % 4
  1353.       (3008,2411){-1,0}...{-1,-1}          % 5
  1354.       (2916,2374){-304,-236}...{-304,-236}     % 6
  1355.       (2612,2138){-214,-219}...          % 7
  1356.       (2115,1307){-795,-2071}...{-68,-511}     % *8
  1357.       (1817,67){-165,-129}...{-165,-129}     % 9
  1358.       (1652,-62){-32,26}...{-32,26}          % 10
  1359.       (1620,-36){-32,274}...               % 11
  1360.       (1351,1309){-685,2133}...          % *12
  1361.       (1159,1780){-415.9,788.2}...{-1,1}     % *13
  1362.       (935,2097){-138,139}...{-138,139}     % 14
  1363.       (797,2236){-209,237}...          % 15
  1364.       (498,2383){-1,0}...               % 16
  1365.       (277,2284){-1,-1}...{-80,-418}          % 17
  1366.       (139,1971)--                    % 18
  1367.       (64,1968){70,514}...               % 19
  1368.       (130,2247){173,459}...               % *20
  1369.       (237,2427){1,1}...               % 21
  1370.       (600,2588){1,0}...               % 22
  1371.       (1018,2403){1,-1}...{10,0}          % 23
  1372.       (1028,2403){1,-1}...               % 24
  1373.       (1494,1683){742,-1735}...{54,-357}     % *25
  1374.       (1770,668){18,-15}...{18,-15}          % 26
  1375.       (1788,653){141,552}...               % 27
  1376.       (2137,1615){826,1649}...          % *28
  1377.       (2614,2302){1,1}...               % 29
  1378.       (3169,2558){1,0}...               % 30
  1379.       (3349,2491){1,-1}...               % 31
  1380.       (3396,2395){0,-1}...{-1,-1}          % 32
  1381.       (3367,2300)--cycle);               % 33
  1382.  
  1383. n := 9;
  1384. t1 := 0;
  1385. t2 := 2;
  1386. t3 := 5;
  1387. t4 := 5.703;
  1388. t5 := 6;
  1389. t6 := 7;
  1390. t7 := 9;
  1391. t8 := 12;
  1392. t9 := 14;
  1393.  
  1394. adj_fill.C(1, 4)                    % fixed x points
  1395.      (9)                         % fixed y points
  1396.      ((5,5), (6,4))                    % tied points
  1397.      ((3,7))                         % verticals
  1398.      ((2,8))                         % horizontals
  1399.      ((3455,282){-285,-419}...          % 0
  1400.       (3274,67){-1,-1}...               % 1
  1401.       (2977,-98){-1,0}...               % 2
  1402.       (2749,1){-1,1}...               % 3
  1403.       (2628,358){-135,1361}...          % *4
  1404.       (2614,1362){0,1}...{32,767}          % 5
  1405.       (2612,2138)--                    % 6
  1406.       (2916,2374){-1,-1}...               % 7
  1407.       (2844,2200){0,-1}...               % 8
  1408.       (2844,1000){0,-1}...               % 9
  1409.       (2881,414){150,-880}...          % *10
  1410.       (2994,120){1,-1}...               % 11
  1411.       (3085,80){1,0}...               % 12
  1412.       (3242,154){1,1}...{257,420}          % 13
  1413.       (3385,337)--cycle);               % 14
  1414.  
  1415. endchar(0);
  1416.  
  1417. "smun";
  1418.  
  1419. %charbegin( "N", 2666h#, capheight*v#, baseline );
  1420. charbegin( "N", (2666+50)*h#, capheight*v#, baseline ); % DEK
  1421. n := 9;
  1422. t1 := 0;
  1423. t2 := 3;
  1424. t3 := 6;
  1425. t4 := 7;
  1426. t5 := 8;
  1427. t6 := 9;
  1428. t7 := 12;
  1429. t8 := 14;
  1430. t9 := 16;
  1431.  
  1432. adj_fill.A(1, 8)                    % fixed x points
  1433.      (1, 4, 9)                    % fixed y points
  1434.      ((1,3), (4,1), (5,2), (9,3))          % tied points
  1435.      ((3,6))                         % verticals
  1436.      ((2,7))                         % horizontals
  1437.      ((147,359){1,0}...               % 0
  1438.       (249,324){1,-1}...               % 1
  1439.       (298,250){205,-325}...               % 2
  1440.       (404,198){1,0}...               % 3
  1441.       (621,319){1,1}...               % 4
  1442.       (753,632){178,877}...               % *5
  1443.       (799,1196){0,1}...{0,957}          % 6
  1444.       (799,2153)--                    % 7
  1445.       (949,1973){0,-573}...               % 8
  1446.       (949,1400){0,-1}...               % 9
  1447.       (869,627){-307,-1244}...          % *10
  1448.       (642,156){-1,-1}...               % 11
  1449.       (278,-33){-1,0}...               % 12
  1450.       (73,43){-1,1}...               % 13
  1451.       (5,186){0,1}...               % 14
  1452.       (65,322){1,1}...{1,0}               % 15
  1453.       (147,359)--cycle);               % 16
  1454.  
  1455. n := 16;
  1456. t1 := 0;
  1457. t2 := 1;
  1458. t3 := 3;
  1459. t4 := 7;
  1460. t5 := 8;
  1461. t6 := 11;
  1462. t7 := 13;
  1463. t8 := 14;
  1464. t9 := 16;
  1465. t10 := 18;
  1466. t11 := 19;
  1467. t12 := 20;
  1468. t13 := 22;
  1469. t14 := 25;
  1470. t15 := 28;
  1471. t16 := 29;
  1472.  
  1473. adj_fill.B(2, 16)                    % fixed x points
  1474.      (1, 7, 15)                    % fixed y points
  1475.      ((1,4), (10,1), (11,2), (16,4))          % tied points
  1476.      ((7,8), (4,13))                    % verticals
  1477.      ((6,9), (5,12), (3,14))               % horizontals
  1478.      ((2838,2337){1,1}...               % 0
  1479.       (2866,2429){0,1}...               % 1
  1480.       (2811,2556){-1,1}...               % 2
  1481.       (2664,2614){-1,0}...               % 3
  1482.       (2367,2492){-1,-1}...               % 4
  1483.       (2252,2231){-157,-717}...          % *5
  1484.       (2210,1775){-2,-522}...{0,-1}          % 6
  1485.       (2220,504){-9,-45}...{-9,-45}          % 7
  1486.       (2211,459){-128,213}...          % 8
  1487.       (1380,1817){-1245,1903}...          % *9
  1488.       (966,2362){-1,1}...               % 10
  1489.       (526,2592){-1,0}...               % 11
  1490.       (159,2469){-1,-1}...{0,-1}          % 12
  1491.       (3,1970)--                    % 13
  1492.       (84,1987){72,365}...               % 14
  1493.       (209,2301){1,1}...               % 15
  1494.       (417,2378){1,0}...               % 16
  1495.       (592,2320){382,-225}...{1,-1}          % *17
  1496.       (799,2153){150,-180}...{150,-180}     % 18
  1497.       (949,1973){389,-526}...{162,-317}     % 19
  1498.       (2177,-52){165,107}...{165,107}     % 20
  1499.       (2342,55){-11,749}...               % 21
  1500.       (2344,1628){7,512}...               % 22
  1501.       (2361,2204){90,784}...               % *23
  1502.       (2434,2412){1,1}...               % 24
  1503.       (2511,2438){1,0}...               % 25
  1504.       (2588,2373){110,-315}...          % 26
  1505.       (2640,2295){1,-1}...               % 27
  1506.       (2718,2281){1,0}...{120,56}          % 28
  1507.       (2838,2337)--cycle);               % 29
  1508. mathcorr(50h#); % DEK
  1509. endchar(0);
  1510.  
  1511. "smuo";
  1512.  
  1513. charbegin( "O", 2420h#, capheight*v#, baseline );
  1514. n := 14;
  1515. t1 := 0;
  1516. %t2 := 2;
  1517. t2 := 1; % DEK
  1518. t3 := 4;
  1519. t4 := 7;
  1520. t5 := 10;
  1521. t6 := 13;
  1522. t7 := 15;
  1523. t8 := 16;
  1524. t9 := 17;
  1525. t10 := 20;
  1526. t11 := 23;
  1527. t12 := 26;
  1528. t13 := 30;
  1529. t14 := 31;
  1530.  
  1531. adj_fill.A(8)                         % fixed x points
  1532.      (1, 7, 14)                    % fixed y points
  1533.      ((1,1), (14,1))                    % tied points
  1534.      ((2,13), (4,11), (6,9))               % verticals
  1535.      ((5,10), (3,12))               % horizontals
  1536.      ((1089,1536){-1,0}...               % 0
  1537.       (958,1593){-1,1}...               % 1
  1538.       (871,1866){0,1}...               % 2
  1539.       (1075,2369){1,1}...               % 3
  1540.       (1515,2537){1,0}...               % 4
  1541.       (1970,2345){1,-1}...               % 5
  1542.       (2166,1968){265,-962}...          % *6
  1543.       (2235,1383){0,-1}...               % 7
  1544.       (2139,702){-369,-1160}...          % *8
  1545.       (1866,223){-1,-1}...               % 9
  1546.       (1072,-79){-1,0}...               % 10
  1547.       (477,202){-1,1}...               % 11
  1548.       (243,600){-316,949}...               % *12
  1549.       (161,1151){0,1}...               % 13
  1550.       (572,2310){1,1}...{282,184}          % 14
  1551.       (752,2447)--                    % 15
  1552.       (803,2400){-1,-1}...               % 16
  1553.       (416,1295){0,-1}...               % 17
  1554.       (487,683){272,-1004}...          % *18
  1555.       (688,291){1,-1}...               % 19
  1556.       (1173,68){1,0}...               % 20
  1557.       (1656,262){1,1}...               % 21
  1558.       (1894,706){321,1115}...          % *22
  1559.       (1977,1377){0,1}...               % 23
  1560.       (1914,1951){-243,933}...          % *24
  1561.       (1734,2310){-1,1}...               % 25
  1562.       (1483,2417){-1,0}...               % 26
  1563.       (1170,2300){-1,-1}...               % 27
  1564.       (1065,2065){0,-1}...               % 28
  1565.       (1198,1790){1,-1}...               % 29
  1566.       (1237,1662){0,-1}...{-1,0}          % 30
  1567.       (1089,1536)--cycle);               % 31
  1568.  
  1569. endchar(0);
  1570.  
  1571. "smup";
  1572.  
  1573. charbegin( "P", 2246h#, capheight*v#, baseline );
  1574. n := 12;
  1575. t1 := 0;
  1576. t2 := 2;
  1577. t3 := 5;
  1578. t4 := 6;
  1579. t5 := 11;
  1580. t6 := 12;
  1581. t7 := 13;
  1582. t8 := 14;
  1583. t9 := 16;
  1584. t10 := 18;
  1585. t11 := 23;
  1586. t12 := 25;
  1587.  
  1588. adj_fill.A(1, 12)                    % fixed x points
  1589.      (6, 8)                         % fixed y points
  1590.      ((1,5), (3,1), (4,2), (6,3), (7,3), (12,4))% tied points
  1591.      ((5,9), (2,11))                    % verticals
  1592.      ((4,10), (1,12))               % horizontals
  1593.      ((1270,1183){1,0}...               % 0
  1594.       (1824,1365){1,1}...               % 1
  1595.       (2010,1878){0,1}...               % 2
  1596.       (1845,2274){-1,1}...               % 3
  1597.       (1616,2397){-575,166}...          % *4
  1598.       (1270,2440){-1,0}...{-235,0}          % 5
  1599.       (1035,2440){-1,0}...               % 6
  1600.       (673,2397){-597,-167}...          % *7
  1601.       (438,2273){-1,-1}...               % 8
  1602.       (301,1987){0,-1}...               % 9
  1603.       (327,1837){147,-622}...          % 10
  1604.       (356,1734){0,-1}...{-1,-1}          % 11
  1605.       (317,1615)--                    % 12
  1606.       (317,1615){-1,-1}...               % 13
  1607.       (210,1566){-1,0}...               % 14
  1608.       (119,1604){-1,1}...               % 15
  1609.       (58,1824){0,1}...               % 16
  1610.       (259,2295){1,1}...{1,0}          % 17
  1611.       (1035,2561){235,96}...{235,96}          % 18
  1612.       (1270,2657){0,-101}...{0,-101}          % 19
  1613.       (1270,2556){1,0}...               % 20
  1614.       (1791,2493){860,-241}...          % *21
  1615.       (2130,2315){1,-1}...               % 22
  1616.       (2259,1904){0,-1}...               % 23
  1617.       (2042,1356){-1,-1}...{-1,0}          % 24
  1618.       (1270,1072)--cycle);               % 25
  1619.  
  1620. n := 10;
  1621. t1 := 0;
  1622. t2 := 2;
  1623. t3 := 4;
  1624. t4 := 8;
  1625. t5 := 9;
  1626. t6 := 10;
  1627. t7 := 11;
  1628. t8 := 14;
  1629. t9 := 16;
  1630. t10 := 18;
  1631.  
  1632. adj_fill.B()                         % fixed x points
  1633.      (1, 10)                         % fixed y points
  1634.      ((1,6), (4,2), (5,1), (6,5), (7,4), (10,6))% tied points
  1635.      ((4,5), (2,9))                    % verticals
  1636.      ((3,8))                         % horizontals
  1637.      ((332,480){1,0}...               % 0
  1638.       (427,458){1,-1}...               % 1
  1639.       (473,275){0,-1}...               % 2
  1640.       (528,115){1,-1}...               % 3
  1641.       (650,78){1,0}...               % 4
  1642.       (878,204){1,1}...               % 5
  1643.       (994,462){157,701}...               % *6
  1644.       (1035,905){0,1}...{0,1535}          % 7
  1645.       (1035,2440)--                    % 8
  1646.       (1270,2440){0,-1257}...          % 9
  1647.       (1270,1183){0,-2}...               % 10
  1648.       (1270,1072){0,-2}...               % 11
  1649.       (1270,852){0,-1}...               % 12
  1650.       (1035,136){-1,-1}...               % 13
  1651.       (562,-41){-1,0}...               % 14
  1652.       (252,80){-1,1}...               % 15
  1653.       (169,311){0,1}...               % 16
  1654.       (225,450){1,1}...{1,0}               % 17
  1655.       (332,480)--cycle);               % 18
  1656.  
  1657. endchar(0);
  1658.  
  1659. "smuq";
  1660.  
  1661. charbegin( "Q", 2253h#, capheight*v#, baseline );
  1662. n := 11;
  1663. t1 := 0;
  1664. t2 := 2;
  1665. t3 := 5;
  1666. t4 := 7;
  1667. t5 := 9;
  1668. t6 := 10;
  1669. t7 := 12;
  1670. t8 := 15;
  1671. t9 := 18;
  1672. t10 := 21;
  1673. t11 := 23;
  1674.  
  1675. adj_fill.A(6, 11)                    % fixed x points
  1676.      (1, 5, 10)                    % fixed y points
  1677.      ((1,2), (11,1))                    % tied points
  1678.      ((4,7), (2,9))                    % verticals
  1679.      ((3,8))                         % horizontals
  1680.      ((1322,291){370,118}...               % 0
  1681.       (1739,548){1,1}...               % 1
  1682.       (2104,1533){0,1}...               % 2
  1683.       (2040,2032){-245,833}...          % *3
  1684.       (1859,2366){-1,1}...               % 4
  1685.       (1225,2601){-1,0}...               % 5
  1686.       (474,2347){-1,-1}...               % 6
  1687.       (168,1514){0,-1}...               % 7
  1688.       (458,792){1,-1}...{1,0}          % 8
  1689.       (930,611)--                    % 9
  1690.       (962,690){-756,178}...               % 10
  1691.       (639,841){-1,1}...               % 11
  1692.       (415,1485){0,1}...               % 12
  1693.       (485,1972){270,833}...               % *13
  1694.       (685,2318){1,1}...               % 14
  1695.       (1191,2482){1,0}...               % 15
  1696.       (1622,2333){1,-1}...               % 16
  1697.       (1785,2019){220,-803}...          % *17
  1698.       (1842,1530){0,-1}...               % 18
  1699.       (1774,940){-262,-967}...          % *19
  1700.       (1580,563){-1,-1}...               % 20
  1701.       (1124,358){-1,0}...               % 21
  1702.       (891,381){-744,103}...{-1,0}          % 22
  1703.       (717,388)--cycle);               % 23
  1704.  
  1705. n := 7;
  1706. t1 := 0;
  1707. t2 := 2;
  1708. t3 := 4;
  1709. t4 := 6;
  1710. t5 := 9;
  1711. t6 := 11;
  1712. t7 := 14;
  1713.  
  1714. adj_fill.B()                         % fixed x points
  1715.      (1, 5)                         % fixed y points
  1716.      ((3,2), (4,1))                    % tied points
  1717.      ()                         % verticals
  1718.      ((4,6), (2,7))                    % horizontals
  1719.      ((2115,483){-152,-425}...          % 0
  1720.       (1969,236){-1,-1}...               % 1
  1721.       (1824,156){-1,0}...               % 2
  1722.       (1683,180){-361,111}...{-361,111}     % 3
  1723.       (1322,291){-434,90}...               % 4
  1724.       (888,381){-341,48}...               % 5
  1725.       (717,388){-1,0}...               % 6
  1726.       (384,276){-1,-1}...{-128,-368}          % 7
  1727.       (217,-59)--                    % 8
  1728.       (295,-97){78,278}...               % 9
  1729.       (404,95){1,1}...               % 10
  1730.       (624,159){1,0}...               % 11
  1731.       (860,132){707,-155}...               % 12
  1732.       (1567,-23){707,-155}...          % 13
  1733.       (1789,-40){1,0}...               % 14
  1734.       (2000,77){1,1}...{115,533}          % 15
  1735.       (2180,448)--cycle);               % 16
  1736.  
  1737. endchar(0);
  1738.  
  1739. "smur";
  1740.  
  1741. charbegin( "R", 2476h#, capheight*v#, baseline );
  1742. n := 15;
  1743. t1 := 0;
  1744. t2 := 1;
  1745. t3 := 3;
  1746. t4 := 6;
  1747. t5 := 7;
  1748. t6 := 11;
  1749. t7 := 12;
  1750. t8 := 13;
  1751. t9 := 14;
  1752. t10 := 16;
  1753. t11 := 18;
  1754. t12 := 23;
  1755. t13 := 25;
  1756. t14 := 26;
  1757. t15 := 27;
  1758.  
  1759. adj_fill.A(1, 15)                    % fixed x points
  1760.      (7, 9)                         % fixed y points
  1761.      ((1,7), (4,1), (5,2), (7,3), (8,3), (13,4), (14,5), (15,6))% tied points
  1762.      ((6,10), (3,12))               % verticals
  1763.      ((5,11), (2,14))               % horizontals
  1764.      ((1303,1254){291,-64}...          % 0
  1765.       (1456,1243){1,0}...               % 1
  1766.       (1855,1406){1,1}...               % 2
  1767.       (2030,1905){0,1}...               % 3
  1768.       (1889,2319){-1,1}...               % 4
  1769.       (1689,2397){-586,104}...{-1,0}          % *5
  1770.       (1303,2423){-249,0}...{-249,0}          % 6
  1771.       (1054,2423){-1,0}...               % 7
  1772.       (448,2207){-1,-1}...               % 8
  1773.       (347,1989){0,-1}...               % 9
  1774.       (363,1867){89,-485}...               % 10
  1775.       (391,1740){0,-1}...{-1,-1}          % 11
  1776.       (344,1626)--                    % 12
  1777.       (344,1626){-1,-1}...               % 13
  1778.       (239,1571){-1,0}...               % 14
  1779.       (149,1614){-1,1}...               % 15
  1780.       (75,1809){0,1}...               % 16
  1781.       (248,2233){1,1}...{1,0}          % 17
  1782.       (1054,2549){249,117}...          % 18
  1783.       (1303,2666){.9051,-.5747}...{0,-106}     % 19
  1784.       (1303,2560){1,0}...               % 20
  1785.       (1837,2512){842,-185}...          % *21
  1786.       (2145,2375){1,-1}...               % 22
  1787.       (2294,1947){0,-1}...               % 23
  1788.       (2108,1439){-1,-1}...{-279,-90}     % 24
  1789.       (1676,1183){-230,-57}...{-230,-57}     % 25
  1790.       (1446,1126){-143,14}...{-143,14}     % 26
  1791.       (1303,1140)--cycle);               % 27
  1792.  
  1793. n := 10;
  1794. t1 := 0;
  1795. t2 := 1;
  1796. t3 := 5;
  1797. t4 := 8;
  1798. t5 := 9;
  1799. t6 := 10;
  1800. t7 := 11;
  1801. t8 := 12;
  1802. t9 := 15;
  1803. t10 := 18;
  1804.  
  1805. adj_fill.B(1)                         % fixed x points
  1806.      (2, 10)                         % fixed y points
  1807.      ((1,8), (5,2), (6,1), (7,7), (8,6), (10,8))% tied points
  1808.      ((4,7))                         % verticals
  1809.      ((3,9))                         % horizontals
  1810.      ((54,372){1,1}...               % 0
  1811.       (157,414){1,0}...               % 1
  1812.       (237,379){1,-1}...               % 2
  1813.       (312,280){157,-276}...               % 3
  1814.       (373,190){1,-1}...               % 4
  1815.       (537,146){1,0}...               % 5
  1816.       (846,284){1,1}...               % 6
  1817.       (1000,586){208,777}...               % *7
  1818.       (1054,1061){0,1}...{0,1362}          % 8
  1819.       (1054,2423)--                    % 9
  1820.       (1303,2423){0,-1169}...{0,-1169}     % 10
  1821.       (1303,1254){0,-114}...{0,-114}          % 11
  1822.       (1303,1140){-140,-910}...          % 12
  1823.       (1167,587){-336,-897}...          % *13
  1824.       (967,243){-1,-1}...               % 14
  1825.       (387,-30){-1,0}...               % 15
  1826.       (112,60){-1,1}...               % 16
  1827.       (12,259){0,1}...{1,1}               % 17
  1828.       (54,372)--cycle);               % 18
  1829.  
  1830. n := 5;
  1831. t1 := 0;
  1832. t2 := 2;
  1833. t3 := 5;
  1834. t4 := 6;
  1835. t5 := 9;
  1836.  
  1837. adj_fill.C()                         % fixed x points
  1838.      (1)                         % fixed y points
  1839.      ((3,4), (4,5))                    % tied points
  1840.      ()                         % verticals
  1841.      ((2,5))                         % horizontals
  1842.      ((2479,412){-160,-535}...          % 0
  1843.       (2390,260){-1,-1}...               % 1
  1844.       (2290,209){-1,0}...               % 2
  1845.       (2170,259){-1,1}...               % 3
  1846.       (1827,809){-151,374}...{-151,374}     % 4
  1847.       (1676,1183)--                    % 5
  1848.       (1446,1126){349,-819}...          % 6
  1849.       (1795,307){349,-819}...          % 7
  1850.       (1990,31){1,-1}...               % 8
  1851.       (2171,-24){1,0}...               % 9
  1852.       (2375,81){1,1}...{190,618}          % 10
  1853.       (2529,370)--cycle);               % 11
  1854.  
  1855. endchar(0);
  1856.  
  1857. "smus";
  1858.  
  1859. charbegin( "S", 1807h#, capheight*v#, baseline );
  1860.  
  1861. n := 22;
  1862. t1 := 0;
  1863. t2 := 1;
  1864. t3 := 3;
  1865. t4 := 5;
  1866. t5 := 7;
  1867. t6 := 9;
  1868. t7 := 13;
  1869. t8 := 15;
  1870. t9 := 17;
  1871. t10 := 19;
  1872. t11 := 20;
  1873. t12 := 23;
  1874. t13 := 25;
  1875. t14 := 27;
  1876. t15 := 32;
  1877. t16 := 34;
  1878. t17 := 35;
  1879. t18 := 36;
  1880. t19 := 38;
  1881. t20 := 40;
  1882. t21 := 42;
  1883. t22 := 43;
  1884.  
  1885. adj_fill.A(11, 18)                    % fixed x points
  1886.      (1, 21)                         % fixed y points
  1887.      ((1,1), (22,1))                    % tied points
  1888. %     ((9,12), (7,14), (6,15), (4,17), (2,20))% verticals
  1889.      ((9,12), (7,14), (6,15), (4,18), (2,20))% verticals % DEK
  1890.      ((10,11), (8,13), (5,16), (3,19))     % horizontals
  1891.      ((887,761){1,1}...               % 0
  1892.       (911,847){0,1}...               % 1
  1893.       (849,976){-1,1}...               % 2
  1894.       (593,1052){-1,0}...               % 3
  1895.       (216,934){-1,-1}...               % 4
  1896.       (72,519){0,-1}...               % 5
  1897.       (222,136){1,-1}...               % 6
  1898.       (724,-63){1,0}...               % 7
  1899.       (1491,254){1,1}...               % 8
  1900.       (1679,774){0,1}...               % 9
  1901.       (1516,1199){-1,1}...               % 10
  1902.       (1054,1490){-882,400}...          % 11
  1903.       (649,1746){-1,1}...               % 12
  1904.       (486,2104){0,1}...               % 13
  1905.       (602,2369){1,1}...               % 14
  1906.       (950,2488){1,0}...               % 15
  1907.       (1241,2384){1,-1}...               % 16
  1908.       (1319,2200){0,-1}...               % 17
  1909.       (1247,2032){-1,-1}...{-1,0}          % 18
  1910.       (1076,1961)--                    % 19
  1911.       (1069,1908){337,-84}...          % 20
  1912.       (1205,1885){1,0}...               % 21
  1913.       (1494,2018){1,1}...               % 22
  1914.       (1563,2207){0,1}...               % 23
  1915.       (1471,2475){-1,1}...               % 24
  1916.       (998,2618){-1,0}...               % 25
  1917.       (388,2413){-1,-1}...               % 26
  1918.       (243,2029){0,-1}...               % 27
  1919.       (438,1570){1,-1}...               % 28
  1920.       (624,1435){481,-280}...          % *29
  1921.       (919,1290){818,-350}...          % 30
  1922.       (1294,1031){1,-1}...               % 31
  1923.       (1411,643){0,-1}...               % 32
  1924.       (1241,249){-1,-1}...               % 33
  1925.       (791,70){-1,0}...               % 34
  1926.       (434,240){-1,1}...               % 35
  1927.       (279,648){0,1}...               % 36
  1928.       (352,879){1,1}...               % 37
  1929.       (510,939){1,0}...               % 38
  1930.       (604,916){1,-1}...               % 39
  1931.       (654,821){67,-285}...               % 40
  1932.       (690,742){1,-1}...               % 41
  1933.       (781,706){1,0}...{1,1}               % 42
  1934.       (887,761)--cycle);               % 43
  1935.  
  1936. endchar(0);
  1937.  
  1938. "smut";
  1939.  
  1940. %charbegin( "T", 2043h#, capheight*v#, baseline );
  1941. charbegin( "T", (2043+80)*h#, capheight*v#, baseline ); % DEK
  1942. n := 12;
  1943. t1 := 0;
  1944. t2 := 2;
  1945. t3 := 4;
  1946. t4 := 6;
  1947. t5 := 8;
  1948. t6 := 9;
  1949. t7 := 11;
  1950. t8 := 16;
  1951. t9 := 17;
  1952. t10 := 18;
  1953. t11 := 19;
  1954. t12 := 21;
  1955.  
  1956. adj_fill.A(12)                         % fixed x points
  1957.      (1, 5, 6)                    % fixed y points
  1958.      ((5,1), (6,1), (9,2), (10,3))          % tied points
  1959.      ((4,7))                         % verticals
  1960.      ((3,8), (2,11))                    % horizontals
  1961.      ((2286,2576){-178,-297}...          % 0
  1962.       (2162,2425){-1,-1}...               % 1
  1963.       (1969,2333){-1,0}...               % 2
  1964.       (1352,2440){-1262,310}...          % 3
  1965.       (793,2547){-1,0}...               % 4
  1966.       (215,2324){-1,-1}...               % 5
  1967.       (-3,1864){0,-1}...               % 6
  1968.       (82,1636){1,-1}...{1,0}          % 7
  1969.       (203,1570)--                    % 8
  1970.       (203,1570){1,0}...               % 9
  1971.       (311,1629){1,1}...               % 10
  1972.       (368,1734){0,1}...               % 11
  1973.       (336,1819){-1,1}...               % 12
  1974.       (249,1926){-118,193}...          % *13
  1975.       (218,2012){0,1}...               % 14
  1976.       (321,2274){1,1}...               % 15
  1977.       (592,2352){1,0}...{287,-80}          % 16
  1978.       (1180,2228){261,-61}...{261,-61}     % 17
  1979.       (1441,2167){542,-111}...          % 18
  1980.       (1871,2096){1,0}...               % 19
  1981.       (2140,2208){1,1}...{227,462}          % 20
  1982.       (2361,2535)--cycle);               % 21
  1983.  
  1984. n := 11;
  1985. t1 := 0;
  1986. t2 := 1;
  1987. t3 := 3;
  1988. t4 := 5;
  1989. t5 := 8;
  1990. t6 := 9;
  1991. t7 := 10;
  1992. t8 := 11;
  1993. t9 := 14;
  1994. t10 := 16;
  1995. t11 := 17;
  1996.  
  1997. adj_fill.B()                         % fixed x points
  1998.      (2, 11)                         % fixed y points
  1999.      ((1,4), (6,2), (7,3), (11,4))          % tied points
  2000.      ((5,8), (3,10))                    % verticals
  2001.      ((4,9))                         % horizontals
  2002.      ((380,432){1,1}...               % 0
  2003.       (490,484){1,0}...               % 1
  2004.       (603,429){1,-1}...               % 2
  2005.       (624,302){-53,-458}...               % 3
  2006.       (663,129){1,-1}...               % 4
  2007.       (791,83){1,0}...               % 5
  2008.       (1016,181){1,1}...               % 6
  2009.       (1137,459){164,765}...               % *7
  2010.       (1180,946){0,1}...{0,1282}          % 8
  2011.       (1180,2228)--                    % 9
  2012.       (1441,2167){0,-995}...               % 10
  2013.       (1441,1172){0,-1}...               % 11
  2014.       (1368,558){-282,-1013}...          % *12
  2015.       (1159,159){-1,-1}...               % 13
  2016.       (701,-42){-1,0}...               % 14
  2017.       (405,61){-1,1}...               % 15
  2018.       (324,310){0,1}...{1,1}               % 16
  2019.       (380,432)--cycle);               % 17
  2020. mathcorr(150h#); % DEK
  2021. endchar(0);
  2022.  
  2023. "smuu";
  2024.  
  2025. charbegin( "U", 2444h#, capheight*v#, baseline );
  2026. n := 12;
  2027. t1 := 0;
  2028. t2 := 2;
  2029. t3 := 5;
  2030. t4 := 7;
  2031. t5 := 10;
  2032. t6 := 13;
  2033. t7 := 14;
  2034. t8 := 17;
  2035. t9 := 19;
  2036. t10 := 21;
  2037. t11 := 24;
  2038. t12 := 26;
  2039.  
  2040. adj_fill.A(12)                         % fixed x points
  2041.      (1, 6)                         % fixed y points
  2042.      ((1,2), (12,1))                    % tied points
  2043.      ((6,7), (4,9), (3,10))               % verticals
  2044.      ((5,8), (2,11))                    % horizontals
  2045.      ((1631,541){-188,-239}...          % 0
  2046.       (1438,326){-1,-1}...               % 1
  2047.       (1008,99){-1,0}...               % 2
  2048.       (775,192){-1,1}...               % 3
  2049.       (668,394){-145,510}...               % *4
  2050.       (630,702){0,1}...               % 5
  2051.       (703,1238){94,470}...               % 6
  2052.       (801,2006){0,1}...               % 7
  2053.       (769,2307){-123,486}...          % *8
  2054.       (678,2492){-1,1}...               % 9
  2055.       (422,2583){-1,0}...               % 10
  2056.       (138,2482){-1,-1}...               % 11
  2057.       (-6,2071){0,-1}...{62,-437}          % 12
  2058.       (16,1802)--                    % 13
  2059.       (118,1836){-20,322}...               % 14
  2060.       (100,2050){0,1}...               % 15
  2061.       (201,2330){1,1}...               % 16
  2062.       (319,2374){1,0}...               % 17
  2063.       (434,2321){1,-1}...               % 18
  2064.       (549,1952){0,-1}...               % 19
  2065.       (458,1231){-92,-435}...          % 20
  2066.       (375,536){0,-1}...               % 21
  2067.       (405,269){116,-436}...               % *22
  2068.       (491,100){1,-1}...               % 23
  2069.       (850,-58){1,0}...               % 24
  2070.       (1503,246){1,1}...{163,190}          % 25
  2071.       (1643,390)--cycle);               % 26
  2072.  
  2073. n := 9;
  2074. t1 := 0;
  2075. t2 := 2;
  2076. t3 := 5;
  2077. t4 := 9;
  2078. t5 := 10;
  2079. t6 := 12;
  2080. t7 := 13;
  2081. t8 := 15;
  2082. t9 := 17;
  2083.  
  2084. adj_fill.B(4, 9)                    % fixed x points
  2085.      (1, 5)                         % fixed y points
  2086.      ((6,2), (7,1))                    % tied points
  2087.      ((3,6))                         % verticals
  2088.      ((2,8))                         % horizontals
  2089.      ((2396,404){-209,-413}...          % 0
  2090.       (2268,216){-1,-1}...               % 1
  2091.       (2126,153){-1,0}...               % 2
  2092.       (2026,213){-1,1}...               % 3
  2093.       (1913,464){-153,682}...          % *4
  2094.       (1873,895){0,1}...               % 5
  2095.       (1966,2026){69,343}...               % 6
  2096.       (2047,2292){194,438}...          % *7
  2097.       (2160,2464){338,317}...{461,259}     % 8
  2098.       (2279,2546)--                    % 9
  2099.       (2216,2585){-360,-148}...{-211,-137}     % 10
  2100.       (1752,2334){-83,-828}...{0,-1}          % 11
  2101.       (1631,541){12,-151}...{12,-151}     % 12
  2102.       (1643,390){92,-413}...               % 13
  2103.       (1816,16){1,-1}...               % 14
  2104.       (1997,-57){1,0}...               % 15
  2105.       (2283,71){1,1}...{149,331}          % 16
  2106.       (2452,358)--cycle);               % 17
  2107.  
  2108. endchar(0);
  2109.  
  2110. "smuv";
  2111.  
  2112. charbegin( "V", 2261h#, capheight*v#, baseline );
  2113. n := 12;
  2114. t1 := 0;
  2115. t2 := 2;
  2116. t3 := 4;
  2117. t4 := 7;
  2118. t5 := 12;
  2119. t6 := 15;
  2120. t7 := 16;
  2121. t8 := 18;
  2122. t9 := 24;
  2123. t10 := 27;
  2124. t11 := 29;
  2125. t12 := 31;
  2126.  
  2127. adj_fill.A(12)                         % fixed x points
  2128.      (1, 7)                         % fixed y points
  2129.      ()                         % tied points
  2130.      ((6,7), (3,10))                    % verticals
  2131.      ((5,8), (4,9), (2,11))               % horizontals
  2132.      ((1382,2046){81,405}...               % 0
  2133.       (1531,2364){1,1}...               % 1
  2134.       (1713,2417){1,0}...               % 2
  2135.       (1916,2330){1,-1}...               % 3
  2136.       (2000,2054){-.05228,-1.896}...          % 4
  2137.       (1912,1642){-324,-886}...          % *5
  2138.       (1676,1168){-464,-750}...{-464,-750}     % 6
  2139.       (1212,418){-42,-11}...{-42,-11}     % 7
  2140.       (1170,407){-255,1414}...          % 8
  2141.       (915,1821){-255,1414}...          % 9
  2142.       (804,2267){-247,696}...          % *10
  2143.       (668,2517){-1,1}...               % 11
  2144.       (453,2615){-1,0}...               % 12
  2145.       (181,2501){-1,-1}...               % 13
  2146.       (67,2300){-182,-518}...{-66,-581}     % *14
  2147.       (-1,1983)--                    % 15
  2148.       (87,1972){79,420}...               % 16
  2149.       (196,2302){1,1}...               % 17
  2150.       (333,2357){1,0}...               % 18
  2151.       (444,2304){1,-1}...               % 19
  2152.       (634,1926){363,-1134}...          % *20
  2153.       (807,1170){253,-1428}...{21,-344}     % 21
  2154.       (973,-19){25,-33}...{25,-33}          % 22
  2155.       (998,-52){190,104}...{190,104}          % 23
  2156.       (1188,52){275,635}...               % 24
  2157.       (1731,1034){661,1089}...          % 25
  2158.       (2134,1766){530,1162}...          % *26
  2159.       (2261,2196){0,1}...               % 27
  2160.       (2140,2510){-1,1}...               % 28
  2161.       (1831,2624){-1,0}...               % 29
  2162.       (1487,2482){-1,-1}...{-65,-404}     % 30
  2163.       (1300,2059)--cycle);               % 31
  2164.  
  2165. endchar(0);
  2166.  
  2167. "smuw";
  2168.  
  2169. charbegin( "W", 3463h#, capheight*v#, baseline );
  2170. n := 16;
  2171. t1 := 0;
  2172. t2 := 1;
  2173. t3 := 4;
  2174. t4 := 6;
  2175. t5 := 8;
  2176. t6 := 11;
  2177. t7 := 15;
  2178. t8 := 19;
  2179. t9 := 21;
  2180. t10 := 22;
  2181. t11 := 25;
  2182. t12 := 30;
  2183. t13 := 37;
  2184. t14 := 41;
  2185. t15 := 43;
  2186. t16 := 45;
  2187.  
  2188. adj_fill.A(16)                         % fixed x points
  2189.      (1, 4, 7, 10, 12, 13)               % fixed y points
  2190.      ()                         % tied points
  2191.      ((9,10), (5,6), (3,14))               % verticals
  2192.      ((8,11), (2,15))               % horizontals
  2193.      ((2657,2285){232,288}...          % 0
  2194.       (2909,2427){1,0}...               % 1
  2195.       (3108,2318){1,-1}...               % 2
  2196.       (3177,2179){93,-363}...          % *3
  2197.       (3201,1955){0,-1}...               % 4
  2198.       (3050,1348){-593,-1506}...{-553,-980}     % *5
  2199.       (2608,449){-212,809}...          % 6
  2200.       (2311,1256){-544,1163}...          % 7
  2201.       (2050,2260){0,1}...{172,813}          % 8
  2202.       (2083,2585){-45,30}...{-45,30}          % 9
  2203.       (2038,2615){-205,-124}...{-205,-124}     % 10
  2204.       (1833,2491){0,-1}...               % 11
  2205.       (1719,1877){-448,-1417}...          % *12
  2206.       (1385,1074){-301,-605}...{-301,-605}     % 13
  2207.       (1084,469){-33,0}...{-33,0}          % 14
  2208.       (1051,469){-4,314}...               % 15
  2209.       (948,1799){-369,2005}...          % *16
  2210.       (835,2218){-266.1,675.4}...          % *17
  2211.       (682,2474){-1,1}...               % 18
  2212.       (430,2602){-1,0}...               % 19
  2213.       (174,2511){-1,-1}...{0,-1}          % 20
  2214.       (-7,1986)--                    % 21
  2215.       (80,1980){65,420}...               % 22
  2216.       (129,2179){121,323}...               % *23
  2217.       (201,2303){1,1}...               % 24
  2218.       (311,2349){1,0}...               % 25
  2219.       (454,2270){1,-1}...               % 26
  2220.       (621,1987){284.4,-749.1}...          % *27
  2221.       (738,1521){376,-2275}...{0,-1}          % *28
  2222.       (830,-5){43,-28}...{43,-28}          % 29
  2223.       (873,-33){189,95}...               % 30
  2224.       (1033,37){189,95}...               % *31
  2225.       (1062,62){200,400}...               % 32
  2226.       (1470,991){230,591}...{161,325}     % 33
  2227.       (1836,1795){213,-625}...          % 34
  2228.       (2125,1051){358,-797}...{36,-559}     % 35
  2229.       (2408,-3){34,-19}...{34,-19}          % 36
  2230.       (2442,-22){171,84}...{171,84}          % 37
  2231.       (2613,62){235,665}...               % 38
  2232.       (3048,1023){528,1005}...          % 39
  2233.       (3358,1691){415,1098}...          % *40
  2234.       (3463,2121){0,1}...               % 41
  2235.       (3327,2503){-1,1}...               % 42
  2236.       (3080,2625){-1,0}...               % 43
  2237.       (2680,2439){-1,-1}...{-240,-333}     % 44
  2238.       (2592,2315)--cycle);               % 45
  2239.  
  2240. endchar(0);
  2241.  
  2242. "smux";
  2243.  
  2244. charbegin( "X", 2454h#, capheight*v#, baseline );
  2245. n := 15;
  2246. t1 := 0;
  2247. t2 := 2;
  2248. t3 := 5;
  2249. t4 := 6;
  2250. t5 := 10;
  2251. t6 := 14;
  2252. t7 := 15;
  2253. t8 := 16;
  2254. t9 := 17;
  2255. t10 := 19;
  2256. t11 := 21;
  2257. t12 := 24;
  2258. t13 := 25;
  2259. t14 := 28;
  2260. t15 := 30;
  2261.  
  2262. adj_fill.A(1)                         % fixed x points
  2263.      (7, 9, 15)                    % fixed y points
  2264.      ((3,1), (4,2), (7,3), (8,3), (12,4), (13,5))% tied points
  2265.      ((6,10))                    % verticals
  2266.      ((5,11), (2,14))               % horizontals
  2267.      ((2354,596){0,-1}...               % 0
  2268.       (2143,111){-1,-1}...               % 1
  2269.       (1819,-32){-1,0}...               % 2
  2270.       (1546,61){-1,1}...               % 3
  2271.       (1393,336){-307,783}...{-181,741}     % *4
  2272.       (1239,844){-25,281}...{-25,281}     % 5
  2273.       (1214,1125){-59,457}...          % 6
  2274.       (1052,1997){-368,1311}...          % *7
  2275.       (956,2269){-206.5,439.1}...          % *8
  2276.       (846,2436){-1,1}...               % 9
  2277.       (646,2507){-1,0}...               % 10
  2278.       (415,2433){-1,-1}...               % 11
  2279.       (351,2294){0,-1}...               % 12
  2280.       (360,2189){131,-551}...          % 13
  2281.       (399,2047){0,-1}...{-1,-1}          % 14
  2282.       (360,1954)--                    % 15
  2283.       (360,1954){-1,-1}...               % 16
  2284.       (256,1906){-1,0}...               % 17
  2285.       (160,1948){-1,1}...               % 18
  2286.       (112,2138){0,1}...               % 19
  2287.       (247,2455){1,1}...               % 20
  2288.       (743,2632){1,0}...               % 21
  2289.       (1105,2513){1,-1}...               % 22
  2290.       (1266,2203){276,-856}...{51,-375}     % *23
  2291.       (1381,1657){40,-346}...{40,-346}     % 24
  2292.       (1421,1311){88,-588}...          % 25
  2293.       (1578,607){366,-1102}...          % *26
  2294.       (1787,209){1,-1}...               % 27
  2295.       (1951,156){1,0}...               % 28
  2296.       (2116,244){1,1}...{46,523}          % 29
  2297.       (2270,612)--cycle);               % 30
  2298.  
  2299. n := 7;
  2300. t1 := 0;
  2301. t2 := 3;
  2302. t3 := 6;
  2303. t4 := 7;
  2304. t5 := 8;
  2305. t6 := 12;
  2306. t7 := 15;
  2307.  
  2308. adj_fill.B()                         % fixed x points
  2309.      (3, 5)                         % fixed y points
  2310.      ((1,4), (3,6), (4,6), (7,5))          % tied points
  2311.      ()                         % verticals
  2312.      ((2,6))                         % horizontals
  2313.      ((1381,1657){188,517}...          % 0
  2314.       (1599,2146){456,819}...          % *1
  2315.       (1837,2476){1,1}...               % 2
  2316.       (2178,2630){1,0}...               % 3
  2317.       (2406,2548){1,-1}...               % 4
  2318.       (2465,2412){0,-1}...{-1,-1}          % 5
  2319.       (2427,2302)--                    % 6
  2320.       (2427,2302){-1,-1}...               % 7
  2321.       (2320,2234){-1,0}...               % 8
  2322.       (2250,2257){-1,1}...               % 9
  2323.       (2214,2321){-144,356}...          % 10
  2324.       (2169,2379){-1,1}...               % 11
  2325.       (2049,2426){-1,0}...               % 12
  2326.       (1874,2353){-1,-1}...               % 13
  2327.       (1613,1941){-453,-1042}...{-104,-498}     % *14
  2328.       (1421,1311)--cycle);               % 15
  2329.  
  2330. n := 7;
  2331. t1 := 0;
  2332. t2 := 2;
  2333. t3 := 5;
  2334. t4 := 6;
  2335. t5 := 7;
  2336. t6 := 11;
  2337. t7 := 14;
  2338.  
  2339. adj_fill.C()                         % fixed x points
  2340.      (3, 5)                         % fixed y points
  2341.      ((1,1), (3,7), (4,7), (7,2))          % tied points
  2342.      ()                         % verticals
  2343.      ((2,6))                         % horizontals
  2344.      ((1239,844){-155,-440}...          % 0
  2345.       (859,159){-1,-1}...               % 1
  2346.       (407,-45){-1,0}...               % 2
  2347.       (166,46){-1,1}...               % 3
  2348.       (79,236){0,1}...{1,1}               % 4
  2349.       (112,349)--                    % 5
  2350.       (112,349){1,1}...               % 6
  2351.       (220,408){1,0}...               % 7
  2352.       (315,371){1,-1}...               % 8
  2353.       (375,252){147,-627}...               % 9
  2354.       (425,167){1,-1}...               % 10
  2355.       (537,125){1,0}...               % 11
  2356.       (771,241){1,1}...               % 12
  2357.       (1003,584){443,884}...{135,431}     % *13
  2358.       (1214,1125)--cycle);               % 14
  2359.  
  2360. endchar(0);
  2361.  
  2362. "smuy";
  2363.  
  2364. charbegin( "Y", 2006h#, capheight*v#, baseline );
  2365. n := 10;
  2366. t1 := 0;
  2367. t2 := 3;
  2368. t3 := 7;
  2369. t4 := 9;
  2370. t5 := 11;
  2371. t6 := 12;
  2372. t7 := 13;
  2373. t8 := 16;
  2374. t9 := 19;
  2375. t10 := 20;
  2376.  
  2377. adj_fill.A(1, 5, 10)                    % fixed x points
  2378.      (1, 6)                         % fixed y points
  2379.      ((1,2), (10,1))                    % tied points
  2380.      ((3,8))                         % verticals
  2381.      ((4,7), (2,9))                    % horizontals
  2382.      ((1488,1693){-46,-368}...          % 0
  2383.       (1331,1444){-1,-1}...               % 1
  2384.       (1089,1255){-459,-256}...          % *2
  2385.       (872,1188){-1,0}...               % 3
  2386.       (670,1277){-1,1}...               % 4
  2387.       (606,1415){-86,374}...               % *5
  2388.       (584,1651){0,1}...               % 6
  2389.       (605,2311){0,1}...               % 7
  2390.       (552,2552){-1,1}...               % 8
  2391.       (440,2602){-1,0}...               % 9
  2392.       (168,2450){-1,-1}...{-284,-432}     % 10
  2393.       (-9,2214)--                    % 11
  2394.       (64,2179){353,348}...               % 12
  2395.       (289,2339){1,0}...               % 13
  2396.       (344,2318){1,-1}...               % 14
  2397.       (360,2267){11,-245}...               % *15
  2398.       (355,2073){0,-1}...               % 16
  2399.       (345,1518){0,-1}...               % 17
  2400.       (455,1140){1,-1}...               % 18
  2401.       (729,1009){1,0}...{256,332}          % 19
  2402.       (1488,1444)--cycle);               % 20
  2403.  
  2404. n := 11;
  2405. t1 := 2;
  2406. t2 := 4;
  2407. t3 := 6;
  2408. t4 := 9;
  2409. t5 := 10;
  2410. t6 := 13;
  2411. t7 := 15;
  2412. t8 := 18;
  2413. t9 := 19;
  2414. t10 := 20;
  2415. t11 := 21;
  2416.  
  2417. adj_fill.B(4)                         % fixed x points
  2418.      ()                         % fixed y points
  2419.      ((4,3), (5,4), (8,4), (9,3), (10,1), (11,2))% tied points
  2420.      ((3,6), (1,9))                    % verticals
  2421.      ((4,5), (2,7))                    % horizontals
  2422.      ((1697,2589){50,-39}...{50,-39}          % 0
  2423.       (1747,2550){-9,-343}...          % 1
  2424.       (1717,921){0,-1}...               % 2
  2425.       (1310,-259){-1,-1}...               % 3
  2426.       (767,-511){-1,0}...               % 4
  2427.       (492,-412){-1,1}...               % 5
  2428.       (384,-163){0,1}...               % 6
  2429.       (491,170){413,718}...               % *7
  2430.       (797,555){1,1}...{405,244}          % 8
  2431.       (1488,1024)--                    % 9
  2432.       (1476,872){-491,-196}...          % 10
  2433.       (930,526){-1,-1}...               % 11
  2434.       (704,224){-306,-595}...          % *12
  2435.       (624,-69){0,-1}...               % 13
  2436.       (681,-301){1,-1}...               % 14
  2437.       (894,-386){1,0}...               % 15
  2438.       (1166,-247){1,1}...               % 16
  2439.       (1395,193){310,1119}...{0,1}          % *17
  2440.       (1476,872){12,152}...{12,152}          % 18
  2441.       (1488,1024){0,420}...{0,420}          % 19
  2442.       (1488,1444){0,249}...{0,249}          % 20
  2443.       (1488,1693){0,1}...{0,1}          % 21
  2444.       (1493,2472)--cycle);               % 22
  2445.  
  2446. endchar(0);
  2447.  
  2448. "smuz";
  2449.  
  2450. charbegin( "Z", 2232h#, capheight*v#, baseline );
  2451. n := 11;
  2452. t1 := 0;
  2453. t2 := 1;
  2454. t3 := 3;
  2455. t4 := 7;
  2456. t5 := 8;
  2457. t6 := 9;
  2458. t7 := 10;
  2459. t8 := 12;
  2460. t9 := 14;
  2461. t10 := 18;
  2462. t11 := 19;
  2463.  
  2464. adj_fill.A(11)                         % fixed x points
  2465.      (5, 7)                         % fixed y points
  2466.      ((1,3), (5,1), (6,1), (11,2))          % tied points
  2467.      ((4,8))                         % verticals
  2468.      ((3,9), (2,10))                    % horizontals
  2469.      ((1521,2054){-329,-103}...          % 0
  2470.       (1420,2047){-1,0}...               % 1
  2471.       (1017,2265){-654,457}...          % 2
  2472.       (713,2393){-1,0}...               % 3
  2473.       (503,2313){-1,-1}...               % 4
  2474.       (404,2114){0,-1}...               % 5
  2475.       (445,1980){219,-514}...          % 6
  2476.       (499,1843){0,-1}...{-1,-1}          % 7
  2477.       (468,1748)--                    % 8
  2478.       (468,1748){-1,-1}...               % 9
  2479.       (354,1691){-1,0}...               % 10
  2480.       (236,1742){-1,1}...               % 11
  2481.       (192,1927){0,1}...               % 12
  2482.       (426,2396){1,1}...               % 13
  2483.       (830,2593){1,0}...               % 14
  2484.       (999,2548){397,-176}...          % *15
  2485.       (1227,2417){715,-486}...          % 16
  2486.       (1495,2239){385,-220}...          % *17
  2487.       (1612,2197){1,0}...{1,1}          % 18
  2488.       (1697,2254)--cycle);               % 19
  2489.  
  2490. n := 4;
  2491. t1 := 3;
  2492. t2 := 4;
  2493. t3 := 14;
  2494. t4 := 15;
  2495.  
  2496. adj_fill.B()                         % fixed x points
  2497.      ()                         % fixed y points
  2498.      ((1,3), (2,2), (3,4), (4,5))          % tied points
  2499.      ()                         % verticals
  2500.      ()                         % horizontals
  2501.      ((133,43){-19,53}...{-19,53}          % 0
  2502.       (114,96){1283,1773}...               % 1
  2503.       (1397,1869){1283,1773}...          % 2
  2504.       (1521,2054){284,519}...{176,200}     % 3
  2505.       (1697,2254){1,1}...               % 4
  2506.       (1762,2341){103,222}...          % 5
  2507.       (1816,2465){105,65}...{32,5}          % 6
  2508.       (1848,2470){30,-7}...{30,-7}          % 7
  2509.       (1878,2463)--                    % 8
  2510.       (1935,2412){17,-23}...{17,-23}          % 9
  2511.       (1952,2389){1,-30}...               % 10
  2512.       (1953,2359){-27,-112}...          % 11
  2513.       (1909,2310){-162,-174}...{-126,-136}     % 12
  2514.       (1783,2174){-1269,-1743}...{-247,-387}     % 13
  2515.       (514,431){-129,-193}...{-129,-193}     % 14
  2516.       (385,238){-1,-1}...               % 15
  2517.       (350,189){-163,-257}...{-108,-182}     % 16
  2518.       (242,7){-46,-9}...{-46,-9}          % 17
  2519.       (196,-2)--cycle);               % 18
  2520.  
  2521. n := 10;
  2522. t1 := 0;
  2523. t2 := 2;
  2524. t3 := 6;
  2525. t4 := 9;
  2526. t5 := 10;
  2527. t6 := 11;
  2528. t7 := 12;
  2529. t8 := 16;
  2530. t9 := 18;
  2531. t10 := 20;
  2532.  
  2533. adj_fill.C()                         % fixed x points
  2534.      (1, 10)                         % fixed y points
  2535.      ((1,6), (5,4), (6,5), (10,6))          % tied points
  2536.      ((2,9))                         % verticals
  2537.      ((4,7), (3,8))                    % horizontals
  2538.      ((2050,707){-1,0}...               % 0
  2539.       (1956,675){-1,-1}...               % 1
  2540.       (1906,577){0,-1}...               % 2
  2541.       (1964,442){127,-196}...          % 3
  2542.       (2019,304){0,-1}...               % 4
  2543.       (1992,188){-1,-1}...               % 5
  2544.       (1806,99){-1.848,-.1074}...          % 6
  2545.       (1628,160){-411,220}...          % 7
  2546.       (1217,380){-411,220}...          % 8
  2547.       (827,511){-1,0}...{-502,-206}          % 9
  2548.       (514,431)--                    % 10
  2549.       (385,238){1,1}...               % 11
  2550.       (617,328){1,0}...               % 12
  2551.       (831,280){521,-190}...               % *13
  2552.       (1138,138){267,-143}...          % 14
  2553.       (1405,-5){267,-143}...               % 15
  2554.       (1623,-61){1.898,.1195}...          % 16
  2555.       (2085,122){1,1}...               % 17
  2556.       (2238,477){0,1}...               % 18
  2557.       (2161,657){-1,1}...{-1,0}          % 19
  2558.       (2050,707)--cycle);               % 20
  2559.  
  2560. endchar(0);
  2561.  
  2562. % PUNCTUATION
  2563. set_stem_round(155,157,160,180,188,201);
  2564. more_side(0); % DEK
  2565.  
  2566. "smminus";
  2567.  
  2568. %charbegin( 0, 1824h#, lcbody*v#, baseline );
  2569. charbegin( 0, 2800h#, (1233+925)*v#, (1233-925)*v#); % DEK
  2570.  
  2571. n := 0;
  2572.  
  2573. adj_fill.A()                         % fixed x points
  2574.      ()                         % fixed y points
  2575.      ()                         % tied points
  2576.      ()                         % verticals
  2577.      ()                         % horizontals
  2578. %     ((1754,1018){-1650,0}...{-1650,0}     % 0
  2579. %      (104,1018)--                    % 1
  2580. %      (70,874){1651,0}...{1651,0}          % 2
  2581. %      (1721,874)--cycle);               % 3
  2582.      ((2614,1018){-1650,0}...{-1650,0}     % 0 % DEK
  2583.       (230,1018)--                    % 1
  2584.       (170,874){1651,0}...{1651,0}          % 2
  2585.       (2564,874)--cycle);               % 3
  2586.  
  2587. endchar(0);
  2588.  
  2589. "smapproximation";
  2590.  
  2591. charbegin( 24, 2042h#, lcbody*v#, baseline );
  2592. n := 6;
  2593. t1 := 0;
  2594. t2 := 2;
  2595. t3 := 6;
  2596. t4 := 10;
  2597. t5 := 12;
  2598. t6 := 15;
  2599.  
  2600. adj_fill.A()                         % fixed x points
  2601.      (1, 4)                         % fixed y points
  2602.      ()                         % tied points
  2603.      ()                         % verticals
  2604.      ((3,5), (2,6))                    % horizontals
  2605.      ((1894,1066){-76,-330}...          % 0
  2606.       (1779,886){-209,-184}...          % 1
  2607.       (1586,809){-1,0}...               % 2
  2608.       (1312,907){-271,170}...          % 3
  2609.       (1041,1077){-271,170}...          % 4
  2610.       (749,1233){-502,207}...          % *5
  2611.       (539,1284){-342,-6}...               % 6
  2612.       (409,1258){-390,-140}...          % 7
  2613.       (241,1133){-328,-369}...{-217,-426}     % *8
  2614.       (81,889)--                    % 9
  2615.       (153,860){140,262}...               % 10
  2616.       (293,1068){186,142}...               % 11
  2617.       (496,1127){1,0}...               % 12
  2618.       (791,1024){366,-233}...          % 13
  2619.       (1157,791){366,-233}...          % 14
  2620.       (1546,657){1,0}...               % 15
  2621.       (1781,757){243,204}...{117,271}     % 16
  2622.       (1962,1019)--cycle);               % 17
  2623.  
  2624. endchar(0);
  2625.  
  2626. "smand";
  2627.  
  2628. charbegin( 94, 2870h#, capheight*v#, baseline*v#);
  2629. n := 0;
  2630.  
  2631. adj_fill.A()                         % fixed x points
  2632.      ()                         % fixed y points
  2633.      ()                         % tied points
  2634.      ()                         % verticals
  2635.      ()                         % horizontals
  2636.      ((2843,6){-1347,2632}...{-1347,2632}     % 0
  2637.       (1496,2638){-34,5}...{-34,5}          % 1
  2638.       (1462,2643){-1421,-2605}...{-1421,-2605}% 2
  2639.       (41,38){42,-40}...{42,-40}          % 3
  2640.       (83,-2)--                    % 4
  2641.       (315,6){1137,2275}...{1137,2275}     % 5
  2642.       (1452,2281){1126,-2313}...{1126,-2313}     % 6
  2643.       (2578,-32)--cycle);               % 7
  2644.  
  2645. endchar(0);
  2646.  
  2647. "smor";
  2648.  
  2649. charbegin( 95, 2870h#, capheight*v#, baseline*v#);
  2650. n := 0;
  2651.  
  2652. adj_fill.A()                         % fixed x points
  2653.      ()                         % fixed y points
  2654.      ()                         % tied points
  2655.      ()                         % verticals
  2656.      ()                         % horizontals
  2657.      ((2783,2545){14,-16}...{14,-16}          % 0
  2658.       (2797,2529){-1385,-2573}...{-1385,-2573}% 1
  2659.       (1412,-44){-55,-2}...{-55,-2}          % 2
  2660.       (1357,-46){-1334,2551}...{-1334,2551}     % 3
  2661.       (23,2505)--                    % 4
  2662.       (279,2545){1129,-2265}...{1129,-2265}     % 5
  2663.       (1408,280){1141,2265}...{1141,2265}     % 6
  2664.       (2549,2545)--cycle);               % 7
  2665.  
  2666. endchar(0);
  2667.  
  2668. "smleftbrace";
  2669.  
  2670. %charbegin( 102, 1185h#, programem*v#, descender*v#);
  2671. charbegin( 102, 1185h#, .75programem*v#, .25programem*v#); % DEK
  2672.  
  2673. n := 7;
  2674. t1 := 0;
  2675. t2 := 1;
  2676. t3 := 4;
  2677. t4 := 8;
  2678. t5 := 9;
  2679. t6 := 13;
  2680. t7 := 16;
  2681.  
  2682. adj_fill.A(1, 4, 5)                    % fixed x points
  2683.      (1)                         % fixed y points
  2684.      ((1,2), (7,1))                    % tied points
  2685.      ((3,6))                         % verticals
  2686.      ((4,5), (2,7))                    % horizontals
  2687.      ((-12,959){39,97}...{39,97}          % 0
  2688.       (27,1056){1,0}...               % 1
  2689.       (305,1127){264,243}...               % 2
  2690.       (384,1343){95,773}...               % *3
  2691.       (400,1900){0,1}...               % 4
  2692.       (404,2295){49,477}...               % 5
  2693.       (495,2582){213,279}...               % 6
  2694.       (624,2675){245,80}...{1,0}          % 7
  2695.       (1081,2701)--                    % 8
  2696.       (1081,2635){-1,0}...               % 9
  2697.       (763,2598){-200,-64}...          % 10
  2698.       (665,2510){-116,-192}...          % 11
  2699.       (612,2354){-53,-336}...          % 12
  2700.       (588,1918){0,-1}...               % 13
  2701.       (564,1463){-95,-702}...          % *14
  2702.       (493,1216){-145,-219}...{-283,-54}     % 15
  2703.       (190,1011)--cycle);               % 16
  2704.  
  2705. n := 6;
  2706. t1 := 0;
  2707. t2 := 4;
  2708. t3 := 7;
  2709. t4 := 8;
  2710. t5 := 11;
  2711. t6 := 15;
  2712.  
  2713. adj_fill.B(1, 6)                    % fixed x points
  2714.      ()                         % fixed y points
  2715.      ((3,1), (4,2))                    % tied points
  2716.      ((2,5))                         % verticals
  2717.      ((3,4), (1,6))                    % horizontals
  2718.      ((1081,-594){-1,0}...               % 0
  2719.       (786,-562){-238,72}...               % 1
  2720.       (673,-474){-142,210}...          % 2
  2721.       (619,-329){-50,298}...               % 3
  2722.       (587,110){0,1}...               % 4
  2723.       (549,587){-146,759}...               % *5
  2724.       (441,869){-200,243}...{-449,99}     % 6
  2725.       (190,1011)--                    % 7
  2726.       (-12,959){1,0}...               % 8
  2727.       (190,937){324,-86}...               % *9
  2728.       (312,873){184,-204}...               % 10
  2729.       (404,124){0,-1}...               % 11
  2730.       (414,-266){41,-369}...               % 12
  2731.       (509,-551){170,-186}...          % 13
  2732.       (652,-635){351,-88}...{1,0}          % 14
  2733.       (1081,-657)--cycle);               % 15
  2734.  
  2735. endchar(0);
  2736.  
  2737. "smrightbrace";
  2738.  
  2739. %charbegin( 103, 1185h#, programem*v#, descender*v#);
  2740. charbegin( 103, 1185h#, .75programem*v#, .25programem*v#); % DEK
  2741.  
  2742. n := 7;
  2743. t1 := 0;
  2744. t2 := 1;
  2745. t3 := 5;
  2746. t4 := 8;
  2747. t5 := 9;
  2748. t6 := 13;
  2749. t7 := 16;
  2750.  
  2751. adj_fill.A(2, 4, 5)                    % fixed x points
  2752.      (1)                         % fixed y points
  2753.      ((1,2), (7,1))                    % tied points
  2754.      ((3,6))                         % verticals
  2755.      ((4,5), (2,7))                    % horizontals
  2756.      ((1138,972){51,89}...{51,89}          % 0
  2757.       (1189,1061){-1,0}...               % 1
  2758.       (960,1094){-363,123}...          % *2
  2759.       (826,1184){-194,295}...          % 3
  2760.       (771,1398){-65,744}...               % *4
  2761.       (761,1928){0,1}...               % 5
  2762.       (661,2599){-331,393}...          % 6
  2763.       (462,2686){-583,118}...{-1,0}          % *7
  2764.       (78,2717)--                    % 8
  2765.       (78,2653){1,0}...               % 9
  2766.       (325,2631){385,-83}...               % *10
  2767.       (463,2570){229,-240}...          % 11
  2768.       (545,2351){109,-647}...          % *12
  2769.       (572,1923){0,-1}...               % 13
  2770.       (610,1448){149,-750}...          % *14
  2771.       (721,1173){230,-260}...{225,-57}     % 15
  2772.       (996,1012)--cycle);               % 16
  2773.  
  2774. n := 6;
  2775. t1 := 0;
  2776. t2 := 3;
  2777. t3 := 6;
  2778. t4 := 7;
  2779. t5 := 10;
  2780. t6 := 13;
  2781.  
  2782. adj_fill.B(1, 6)                    % fixed x points
  2783.      ()                         % fixed y points
  2784.      ((3,1), (4,2))                    % tied points
  2785.      ((2,5))                         % verticals
  2786.      ((3,4), (1,6))                    % horizontals
  2787.      ((78,-589){1,0}...               % 0
  2788.       (334,-570){400,75}...               % *1
  2789.       (478,-514){247,220}...               % 2
  2790.       (584,113){0,1}...               % 3
  2791.       (621,600){142,757}...               % *4
  2792.       (726,870){347,374}...{384,85}          % 5
  2793.       (996,1012)--                    % 6
  2794.       (1138,972){-1,0}...               % 7
  2795.       (875,905){-234,-204}...          % 8
  2796.       (797,695){-91,-784}...               % *9
  2797.       (784,121){0,-1}...               % 10
  2798.       (756,-330){-114,-680}...          % *11
  2799.       (670,-559){-267,-277}...{-1,0}          % 12
  2800.       (78,-656)--cycle);               % 13
  2801.  
  2802. endchar(0);
  2803.  
  2804. "smverticalbar";
  2805.  
  2806. %charbegin( 106, 790h#, programem*v#, baseline*v#);
  2807. charbegin( 106, 790h#, .75programem*v#, .25programem*v#); % DEK
  2808.  
  2809. n := 0;
  2810.  
  2811. adj_fill.A()                         % fixed x points
  2812.      ()                         % fixed y points
  2813.      ()                         % tied points
  2814.      ()                         % verticals
  2815.      ()                         % horizontals
  2816. %     ((320,2604){0,-2736}...{0,-2736}     % 0
  2817. %      (320,-132)--                    % 1
  2818. %      (447,-90){0,2753}...{0,2753}          % 2
  2819. %      (447,2663)--cycle);               % 3
  2820.      ((320,2660){0,-2736}...{0,-2736}     % 0 % DEK
  2821.       (320,-635)--                    % 1
  2822.       (447,-590){0,2753}...{0,2753}          % 2
  2823.       (447,2730)--cycle);               % 3
  2824.  
  2825. endchar(0);
  2826.  
  2827. "smbackslash";
  2828.  
  2829. %charbegin( 110, 1843h#, programem*v#, descender*v#);
  2830. charbegin( 110, 1858h#, .75programem*v#, .25programem*v#); % DEK
  2831.  
  2832. numeric a[],b[],alpha,beta;
  2833. pair vec;
  2834. .5[b0,b3]=.75programem-120;  .5[b1,b2]=-.25programem+250;
  2835. b0-b3=-63; b1-b2=-85;
  2836. .5[a0,a3]=206; .5[a1,a2]=1650;
  2837. vec=(.5[a0-a1,a3-a2],.5[b0-b1,b3-b2]);
  2838. (a3,b3)-(a2,b2)=alpha*vec;
  2839. (a1,b1)=beta*vec+(a2,b2)+145*(unitvector vec rotated 90);
  2840.  
  2841. n := 0;
  2842.  
  2843. adj_fill.A()                         % fixed x points
  2844.      ()                         % fixed y points
  2845.      ()                         % tied points
  2846.      ()                         % verticals
  2847.      ()                         % horizontals
  2848. %     ((1740,-277){-1745,2961}...{-1745,2961}     % 0
  2849. %      (-5,2684)--                    % 1
  2850. %      (95,2731){1753,-2989}...{1753,-2989}     % 2
  2851. %      (1848,-258)--cycle);               % 3
  2852.      ((a0,b0)--                    % 0 % DEK
  2853.       (a1,b1)--                    % 1
  2854.       (a2,b2)--                    % 2
  2855.       (a3,b3)--cycle);               % 3
  2856.  
  2857. endchar(0);
  2858.  
  2859. "smss";          %medium section sign, \s
  2860.  
  2861. charbegin( 120, 1907h#, depthy*v#, baseline*v#);
  2862.  
  2863. n := 13;
  2864. t1 := 0;
  2865. t2 := 1;
  2866. t3 := 4;
  2867. t4 := 5;
  2868. t5 := 6;
  2869. t6 := 8;
  2870. t7 := 11;
  2871. t8 := 13;
  2872. t9 := 14;
  2873. t10 := 17;
  2874. t11 := 19;
  2875. t12 := 24;
  2876. t13 := 25;
  2877.  
  2878. adj_fill.A()                         % fixed x points
  2879.      (8, 13)                         % fixed y points
  2880.      ((1,3), (3,1), (4,2))               % tied points
  2881.      ((7,9), (5,11), (2,12))               % verticals
  2882.      ((6,10))                    % horizontals
  2883.      ((1426,616){198,265}...               % 0
  2884.       (1504,859){0,1}...               % 1
  2885.       (1370,1129){-1,1}...               % 2
  2886.       (1013,1336){-579,265}...          % 3
  2887.       (519,1615){-249,293}...          % 4
  2888.       (442,1716){-66,219}...               % 5
  2889.       (404,1941){0,1}...               % 6
  2890.       (585,2418){1,1}...               % 7
  2891.       (1031,2594){1,0}...               % 8
  2892.       (1237,2570){338,-91}...          % *9
  2893.       (1369,2503){1,-1}...               % 10
  2894.       (1469,2302){0,-1}...{-57,-276}          % 11
  2895.       (1446,2164)--                    % 12
  2896.       (1228,2088){-54,38}...{-54,38}          % 13
  2897.       (1174,2126){0,1}...               % 14
  2898.       (1155,2297){-73,279}...          % *15
  2899.       (1101,2405){-1,1}...               % 16
  2900.       (922,2474){-1,0}...               % 17
  2901.       (708,2364){-1,-1}...               % 18
  2902.       (614,2077){0,-1}...               % 19
  2903.       (709,1828){1,-1}...               % 20
  2904.       (780,1776){404,-234}...          % *21
  2905.       (1113,1594){1.733,-.9989}...          % 22
  2906.       (1533,1353){1,-1}...               % 23
  2907.       (1668,1053){0,-1}...{-330,-344}     % 24
  2908.       (1478,555)--cycle);               % 25
  2909.  
  2910. n := 11;
  2911. t1 := 0;
  2912. t2 := 2;
  2913. t3 := 4;
  2914. t4 := 8;
  2915. t5 := 9;
  2916. t6 := 10;
  2917. t7 := 11;
  2918. t8 := 14;
  2919. t9 := 15;
  2920. t10 := 17;
  2921. t11 := 19;
  2922.  
  2923. adj_fill.B()                         % fixed x points
  2924.      (1)                         % fixed y points
  2925.      ((5,2), (6,1), (8,3))               % tied points
  2926.      ((4,7), (3,9), (1,11))               % verticals
  2927.      ((2,10))                    % horizontals
  2928.      ((496,195){1,-482}...               % 0
  2929.       (618,-166){1,-1}...               % 1
  2930.       (911,-270){1,0}...               % 2
  2931.       (1225,-126){1,1}...               % 3
  2932.       (1321,178){0,1}...               % 4
  2933.       (1211,417){-1,1}...               % 5
  2934.       (797,650){-1113,520}...          % 6
  2935.       (399,886){-1,1}...               % 7
  2936.       (264,1250){0,1}...{301,424}          % 8
  2937.       (442,1716)--                    % 9
  2938.       (519,1615){-364,-450}...          % 10
  2939.       (406,1379){0,-1}...               % 11
  2940.       (504,1154){1,-1}...               % 12
  2941.       (904,912){843,-393}...               % 13
  2942.       (1426,616){235,-235}...          % 14
  2943.       (1544,277){0,-1}...               % 15
  2944.       (1351,-195){-1,-1}...               % 16
  2945.       (876,-395){-1,0}...               % 17
  2946.       (349,-223){-1,1}...{-60,553}          % 18
  2947.       (207,86)--cycle);               % 19
  2948.  
  2949. endchar(0);
  2950.  
  2951. "rmnot";     %logical not sign
  2952.  
  2953. charbegin( 58, 2534h#, lcbody*v#, baseline*v#);
  2954. n := 4;
  2955. t1 := 1;
  2956. t2 := 2;
  2957. t3 := 3;
  2958. t4 := 7;
  2959.  
  2960. adj_fill.A()                         % fixed x points
  2961.      (4)                         % fixed y points
  2962.      ()                         % tied points
  2963.      ((1,2))                         % verticals
  2964.      ((2,3))                         % horizontals
  2965.      ((2325,764){0,749}...{0,749}          % 0
  2966.       (2325,1513){-2231,0}...{-2231,0}     % 1
  2967.       (94,1513)--                    % 2
  2968.       (94,1361){1941,0}...               % 3
  2969.       (2035,1361){1,0}...               % 4
  2970.       (2122,1355){1.473,-.9487}...          % 5
  2971.       (2149,1305){76,-698}...{55,-543}     % 6
  2972.       (2204,762)--cycle);               % 7
  2973.  
  2974. endchar(0);
  2975.  
  2976. % Fraktur copied from EUFMCH
  2977. set_stem_round(240,250,267,267,290,315);
  2978. more_side(100h#); % DEK
  2979.  
  2980. "FMUR";
  2981.  
  2982. charbegin( 60,2866h#, capheight*v#, baseline*v#);
  2983. n := 14;
  2984. t1 := 0;
  2985. t2 := 1;
  2986. t3 := 5;
  2987. t4 := 7;
  2988. t5 := 9;
  2989. t6 := 11;
  2990. t7 := 12;
  2991. t8 := 13;
  2992. t9 := 15;
  2993. t10 := 19;
  2994. t11 := 21;
  2995. t12 := 24;
  2996. t13 := 29;
  2997. t14 := 31;
  2998.  
  2999. adj_fill.A(7, 14)                    % fixed x points
  3000.      (1, 8)                         % fixed y points
  3001.      ((12,1))                    % tied points
  3002.      ((6,9), (5,10), (3,12))               % verticals
  3003.      ((4,11), (2,13))               % horizontals
  3004.      ((59,0){3,4}...                    % 0
  3005.       (335,158){1,0}...{1,-1}          % 1
  3006.       (611,-39){155,130}...{5,4}          % 2
  3007.       (1221,473){2,3}...               % 3
  3008.       (1441,1012){75,320}...               % *4
  3009.       (1517,1734){0,1}...               % 5
  3010.       (1281,2403){-1,1}...               % 6
  3011.       (827,2600){-1,0}...               % 7
  3012.       (225,2332){-1,-1}...               % 8
  3013.       (0,1872){0,-1}...               % 9
  3014.       (158,1576){3,-4}...               % 10
  3015.       (315,1320){0,-1}...{-7,-4}          % 11
  3016.       (99,1024)--                    % 12
  3017.       (177,965){5,3}...               % 13
  3018.       (480,1212){105,125}...               % *14
  3019.       (591,1458){0,1}...               % 15
  3020.       (545,1595){-45,80}...               % *16
  3021.       (414,1773){-8,9}...               % 17
  3022.       (282,1951){-45,80}...               % *18
  3023.       (236,2088){0,1}...               % 19
  3024.       (339,2293){1,1}...               % 20
  3025.       (591,2384){1,0}...               % 21
  3026.       (965,2206){1,-1}...               % 22
  3027.       (1140,1888){60,-200}...          % *23
  3028.       (1202,1418){0,-1}...               % 24
  3029.       (1172,903){-30,-215}...          % *25
  3030.       (1084,571){-3,-6}...{-5,-3}          % 26
  3031.       (768,236){-7,8}...               % 27
  3032.       (605,398){-70,55}...               % *28
  3033.       (493,453){-1,0}...               % 29
  3034.       (270,349){-125,-100}...{-3,-4}          % *30
  3035.       (0,59)--cycle);               % 31
  3036.  
  3037. n := 6;
  3038. t1 := 0;
  3039. t2 := 6;
  3040. t3 := 8;
  3041. t4 := 9;
  3042. t5 := 11;
  3043. t6 := 15;
  3044.  
  3045. adj_fill.B()                         % fixed x points
  3046.      (4)                         % fixed y points
  3047.      ((1,5), (3,2), (4,3), (6,4))          % tied points
  3048.      ()                         % verticals
  3049.      ((2,5), (1,6))                    % horizontals
  3050.      ((2837,1970){-10,-2}...               % 0
  3051.       (2664,1961){-70,10}...               % *1
  3052.       (2561,2009){-3,4}...               % 2
  3053.       (2542,2063){-10,60}...               % *3
  3054.       (2522,2246){-1,8}...               % 4
  3055.       (2443,2502){-5,6}...               % 5
  3056.       (2226,2600){-1,0}...               % 6
  3057.       (1655,2325){-1,-1}...{-5,-6}          % 7
  3058.       (1478,2128)--                    % 8
  3059.       (1517,1891){2,4}...               % 9
  3060.       (1753,2266){1,1}...               % 10
  3061.       (1990,2384){1,0}...               % 11
  3062.       (2147,2285){1,-2}...               % 12
  3063.       (2206,2088){1,-7}...               % 13
  3064.       (2266,1832){1,-1}...{9,-1}          % 14
  3065.       (2403,1773)--cycle);               % 15
  3066.  
  3067. n := 7;
  3068. t1 := 0;
  3069. t2 := 1;
  3070. t3 := 2;
  3071. t4 := 3;
  3072. t5 := 4;
  3073. t6 := 5;
  3074. t7 := 9;
  3075.  
  3076. adj_fill.C(5, 6)                    % fixed x points
  3077.      ()                         % fixed y points
  3078.      ((1,11), (3,6), (4,7), (5,8), (6,9), (7,10))% tied points
  3079.      ((2,7))                         % verticals
  3080.      ()                         % horizontals
  3081.      ((2541,630){-2,6}...{-1,24}          % 0
  3082.       (2482,1359){-7,6}...               % 1
  3083.       (2147,1497){-1,0}...               % 2
  3084.       (1852,1497){-1.932,-.3624}...{-90,-35}     % 3
  3085.       (1497,1359)--                    % 4
  3086.       (1497,1261){4,1}...               % 5
  3087.       (1832,1320){1,0}...               % 6
  3088.       (2128,1221){1,-1}...               % 7
  3089.       (2206,1103){1,-5}...{-1,-21}          % 8
  3090.       (2226,394)--cycle);               % 9
  3091.  
  3092. n := 4;
  3093. t1 := 0;
  3094. t2 := 1;
  3095. t3 := 2;
  3096. t4 := 5;
  3097.  
  3098. adj_fill.D()                         % fixed x points
  3099.      ()                         % fixed y points
  3100.      ((1,7), (2,4), (3,5), (4,6))          % tied points
  3101.      ()                         % verticals
  3102.      ()                         % horizontals
  3103.      ((1852,1497){2,1}...               % 0
  3104.       (2403,1773){5,3}...{110,50}          % 1
  3105.       (2837,1970)--                    % 2
  3106.       (2876,1911){-8,-3}...               % 3
  3107.       (2561,1773){-7,-4}...{-5,-4}          % 4
  3108.       (2147,1497)--cycle);               % 5
  3109.  
  3110. n := 4;
  3111. t1 := 0;
  3112. t2 := 1;
  3113. t3 := 2;
  3114. t4 := 3;
  3115.  
  3116. adj_fill.E()                         % fixed x points
  3117.      ()                         % fixed y points
  3118.      ((1,2), (2,1), (3,1), (4,3))          % tied points
  3119.      ()                         % verticals
  3120.      ()                         % horizontals
  3121.      ((1478,2128){-70,-180}...{-70,-180}     % 0
  3122.       (1202,1418)--                    % 1
  3123.       (1202,1418){80,120}...{80,120}          % 2
  3124.       (1517,1891)--cycle);               % 3
  3125.  
  3126. n := 4;
  3127. t1 := 0;
  3128. t2 := 1;
  3129. t3 := 2;
  3130. t4 := 3;
  3131.  
  3132. adj_fill.F()                         % fixed x points
  3133.      ()                         % fixed y points
  3134.      ((1,8), (2,1), (3,1), (4,9))          % tied points
  3135.      ()                         % verticals
  3136.      ()                         % horizontals
  3137.      ((1497,1359){-75,15}...{-75,15}          % 0
  3138.       (1202,1418)--                    % 1
  3139.       (1202,1418){75,-40}...{75,-40}          % 2
  3140.       (1497,1261)--cycle);               % 3
  3141.  
  3142. n := 4;
  3143. t1 := 0;
  3144. t2 := 1;
  3145. t3 := 2;
  3146. t4 := 4;
  3147.  
  3148. adj_fill.G()                         % fixed x points
  3149.      ()                         % fixed y points
  3150.      ((1,13), (2,10), (3,11), (4,12))     % tied points
  3151.      ()                         % verticals
  3152.      ()                         % horizontals
  3153.      ((2463,-39){-60,110}...{-60,110}     % 0
  3154.       (2226,394)--                    % 1
  3155.       (2541,630){2,-6}...               % 2
  3156.       (2643,397){50,-80}...{1,0}          % *3
  3157.       (2738,315)--cycle);               % 4
  3158.  
  3159. n := 2;
  3160. t1 := 1;
  3161. t2 := 2;
  3162.  
  3163. adj_fill.H()                         % fixed x points
  3164.      ()                         % fixed y points
  3165.      ((1,13), (2,12))               % tied points
  3166.      ()                         % verticals
  3167.      ()                         % horizontals
  3168.      ((2955,335){-125,-95}...{-125,-95}     % 0
  3169.       (2463,-39)--                    % 1
  3170.       (2738,315){1,0}...{5,2}          % 2
  3171.       (2955,394)--cycle);               % 3
  3172.  
  3173. endchar(0);
  3174.  
  3175. "FMUI";
  3176.  
  3177. charbegin( 61,1853h#, capheight*v#, baseline*v#);
  3178.  
  3179. n := 6;
  3180. t1 := 0;
  3181. t2 := 2;
  3182. t3 := 4;
  3183. t4 := 8;
  3184. t5 := 10;
  3185. t6 := 12;
  3186.  
  3187. adj_fill.A()                         % fixed x points
  3188.      (1, 4)                         % fixed y points
  3189.      ()                         % tied points
  3190.      ()                         % verticals
  3191.      ((3,5), (2,6))                    % horizontals
  3192.      ((1832,2541){-200,-155}...          % 0
  3193.       (1612,2395){-95,-50}...          % *1
  3194.       (1458,2344){-1,0}...               % 2
  3195.       (1261,2403){-200,95}...          % 3
  3196.       (690,2600){-1,0}...               % 4
  3197.       (315,2443){-9,-10}...               % 5
  3198.       (167,2204){-77,-160}...{-100,-295}     % *6
  3199.       (12,1812)--                    % 7
  3200.       (79,1773){100,265}...               % 8
  3201.       (315,2167){1,1}...               % 9
  3202.       (611,2285){1,0}...               % 10
  3203.       (821,2242){175,-55}...{200,-75}     % *11
  3204.       (1300,2069){200,105}...{200,185}     % 12
  3205.       (1872,2482)--cycle);               % 13
  3206.  
  3207. n := 9;
  3208. t1 := 0;
  3209. t2 := 1;
  3210. t3 := 1.202;
  3211. t4 := 3;
  3212. t5 := 6;
  3213. t6 := 9;
  3214. t7 := 10;
  3215. t8 := 14;
  3216. t9 := 16;
  3217.  
  3218. adj_fill.B(1, 7)                    % fixed x points
  3219.      (2, 3, 6)                    % fixed y points
  3220.      ()                         % tied points
  3221.      ((5,8))                         % verticals
  3222.      ((4,9))                         % horizontals
  3223.      ((39,59){100,140}...{200,180}          % 0
  3224.       (433,493){200,325}...               % 1
  3225.       (630,236){1,-1}...               % 2
  3226.       (867,138){1,0}...               % 3
  3227.       (1143,276){1,1}...               % 4
  3228.       (1259,495){40,140}...               % *5
  3229.       (1300,827){0,1}...               % 6
  3230.       (1261,1300){-25,200}...{25,200}     % 7
  3231.       (1241,1773){200,225}...{200,125}     % 8
  3232.       (1734,2206)--                    % 9
  3233.       (1793,2187){-200,-190}...          % 10
  3234.       (1603,1962){-65,-105}...{0,-1}          % *11
  3235.       (1537,1773){5,-60}...               % 12
  3236.       (1556,1537){30,-200}...          % 13
  3237.       (1615,965){0,-1}...               % 14
  3238.       (1399,335){-1,-1}...               % 15
  3239.       (611,-39){-1,0}...{-100,90}          % 16
  3240.       (256,138){-50,-35}...{-50,-35}          % 17
  3241.       (59,0)--cycle);               % 18
  3242.  
  3243. endchar(0);
  3244.  
  3245. endinput;
  3246. %%% characters which have been eliminated:
  3247.  
  3248. "smcong";
  3249. % by DEK, not HZ!
  3250. % actually there's a bug: distance between bars won't be equal after rounding
  3251. % so I'm not using this character
  3252. charbegin( oct"021", 2800h#, (810+925)*v#, (810-925)*v#);
  3253.  
  3254. n := 2;
  3255. t1 := 1;
  3256. t2 := 2;
  3257.  
  3258. adj_fill.A()                         % fixed x points
  3259.      ()                         % fixed y points
  3260.      ()                         % tied points
  3261.      ()                         % verticals
  3262.      ((1,2))                         % horizontals
  3263.      ((2684,1727){-1650,0}...{-1650,0}     % 0
  3264.       (234,1727)--                    % 1
  3265.       (200,1583){1651,0}...{1651,0}          % 2
  3266.       (2651,1583)--cycle);               % 3
  3267.  
  3268. n := 2;
  3269. t1 := 1;
  3270. t2 := 2;
  3271.  
  3272. adj_fill.B()                         % fixed x points
  3273.      ()                         % fixed y points
  3274.      ()                         % tied points
  3275.      ()                         % verticals
  3276.      ((1,2))                         % horizontals
  3277.      ((2684,997){-1650,0}...{-1650,0}     % 0
  3278.       (234,997)--                    % 1
  3279.       (200,853){1651,0}...{1651,0}          % 2
  3280.       (2651,853)--cycle);               % 3
  3281.  
  3282. n := 2;
  3283. t1 := 1;
  3284. t2 := 2;
  3285.  
  3286. adj_fill.C()                         % fixed x points
  3287.      ()                         % fixed y points
  3288.      ()                         % tied points
  3289.      ()                         % verticals
  3290.      ((1,2))                         % horizontals
  3291.      ((2684,267){-1650,0}...{-1650,0}     % 0
  3292.       (234,267)--                    % 1
  3293.       (200,123){1651,0}...{1651,0}          % 2
  3294.       (2651,123)--cycle);               % 3
  3295.  
  3296. endchar(0);
  3297.  
  3298.  
  3299. "smlessthanorequal";
  3300. % by DEK, not HZ!
  3301. charbegin( oct"024", 2800h#, (1430+925)*v#, (1430-925)*v#);
  3302.  
  3303. n := 0;
  3304.  
  3305. numeric a[],b[],alpha[],beta[];
  3306. pair vec[];
  3307. a6=a8=a10=2493; a7=a9=347; .5[b6,b8]=b7; .5[b6,b10]=925; b6-b8=2000;
  3308. b8-b10=b7-b9=860;
  3309. vec1=(a6,b6)-(a7,b7); vec2=(a8,b8)-(a7,b7);
  3310. vec3=unitvector vec1 rotated 90; vec4=unitvector vec2 rotated 90;
  3311. (a2,b2)=(a6,b6)+55vec3; (a3,b3)=(a6,b6)-75vec3;
  3312. (a0,b0)=(a8,b8)-75vec4; (a5,b5)=(a8,b8)+75vec4;
  3313. (a1,b1)=(a6,b6)+75vec3+alpha1*vec1=(a0,b0)+beta1*vec2;
  3314. (a4,b4)=(a3,b3)+alpha2*vec1=(a5,b5)+beta2*vec2;
  3315.  
  3316. adj_fill.A()                         % fixed x points
  3317.      ()                         % fixed y points
  3318.      ()                         % tied points
  3319.      ()                         % verticals
  3320.      ()                         % horizontals
  3321.      ((a0,b0)--                    % 0
  3322.       (a1,b1)--                    % 1
  3323.       (a2,b2)--                    % 2
  3324.       (a3,b3)--                    % 3
  3325.       (a4,b4)--                    % 4
  3326.       (a5,b5)--cycle);               % 5
  3327.  
  3328. adj_fill.B()                         % fixed x points
  3329.      ()                         % fixed y points
  3330.      ()                         % tied points
  3331.      ()                         % verticals
  3332.      ()                         % horizontals
  3333.      (((a10,b10)-75vec4)--               % 0
  3334.       ((a9-60,b9)-75vec4)--               % 1
  3335.       ((a9,b9)+75vec4)--               % 2
  3336.       ((a10,b10)+75vec4)--cycle);          % 3
  3337.  
  3338. endchar(0);
  3339.  
  3340. "smgreaterthanorequal";
  3341. % by DEK, not HZ!
  3342. charbegin( oct"025", 2800h#, (1430+925)*v#, (1430-925)*v#);
  3343.  
  3344. n := 0;
  3345.  
  3346. numeric a[],b[],alpha[],beta[];
  3347. pair vec[];
  3348. a6=a8=a10=307; a7=a9=2453; .5[b6,b8]=b7; .5[b6,b10]=925; b6-b8=2000;
  3349. b8-b10=b7-b9=860;
  3350. vec1=(a6,b6)-(a7,b7); vec2=(a8,b8)-(a7,b7);
  3351. vec3=unitvector vec1 rotated 90; vec4=unitvector vec2 rotated 90;
  3352. (a2,b2)=(a6,b6)-55vec3; (a3,b3)=(a6,b6)+75vec3;
  3353. (a0,b0)=(a8,b8)+75vec4; (a5,b5)=(a8,b8)-75vec4;
  3354. (a1,b1)=(a6,b6)-75vec3+alpha1*vec1=(a0,b0)+beta1*vec2;
  3355. (a4,b4)=(a3,b3)+alpha2*vec1=(a5,b5)+beta2*vec2;
  3356.  
  3357. adj_fill.A()                         % fixed x points
  3358.      ()                         % fixed y points
  3359.      ()                         % tied points
  3360.      ()                         % verticals
  3361.      ()                         % horizontals
  3362.      ((a0,b0)--                    % 0
  3363.       (a1,b1)--                    % 1
  3364.       (a2,b2)--                    % 2
  3365.       (a3,b3)--                    % 3
  3366.       (a4,b4)--                    % 4
  3367.       (a5,b5)--cycle);               % 5
  3368.  
  3369. adj_fill.B()                         % fixed x points
  3370.      ()                         % fixed y points
  3371.      ()                         % tied points
  3372.      ()                         % verticals
  3373.      ()                         % horizontals
  3374.      (((a10,b10)+75vec4)--               % 0
  3375.       ((a9+60,b9)+75vec4)--               % 1
  3376.       ((a9,b9)-75vec4)--               % 2
  3377.       ((a10,b10)-75vec4)--cycle);          % 3
  3378.  
  3379. endchar(0);
  3380.  
  3381. % ALTERNATE CHARACTERS
  3382. set_stem_round(230,350,270,270,290,310);
  3383.  
  3384. "smuio";
  3385.  
  3386. %charbegin( "I", 1615h#, capheight*v#, baseline );
  3387. charbegin( 123, 1615h#, capheight*v#, baseline ); %NGB
  3388. n := 15;
  3389. t1 := 0;
  3390. t2 := 4;
  3391. t3 := 6;
  3392. t4 := 9;
  3393. t5 := 12;
  3394. t6 := 14;
  3395. t7 := 16;
  3396. t8 := 17;
  3397. t9 := 19;
  3398. t10 := 21;
  3399. t11 := 24;
  3400. t12 := 26;
  3401. t13 := 28;
  3402. t14 := 30;
  3403. t15 := 31;
  3404.  
  3405. adj_fill.A(13)                         % fixed x points
  3406.      (3, 7, 8, 12)                    % fixed y points
  3407.      ((1,2), (7,1), (8,1), (15,2))          % tied points
  3408.      ((6,9), (4,11), (2,14))               % verticals
  3409.      ((5,10))                    % horizontals
  3410.      ((839,1440){-1,-1}...               % 0
  3411.       (819,1450){-1,-1}...               % 1
  3412.       (718,1400){-1,0}...               % 2
  3413.       (623,1430){-1,1}...               % 3
  3414.       (531,1683){0,1}...               % 4
  3415.       (779,2243){1,1}...{417,49}          % 5
  3416.       (1391,2555){12,-30}...               % 6
  3417.       (1403,2525){-.2671,-1.698}...{-73,-88}     % 7
  3418.       (1330,2437){0,-1141}...          % 8
  3419.       (1330,1296){0,-1}...               % 9
  3420.       (1250,623){-306,-1108}...          % *10
  3421.       (1024,188){-1,-1}...               % 11
  3422.       (551,-49){-1,0}...               % 12
  3423.       (147,96){-1,1}...               % 13
  3424.       (47,319){0,1}...               % 14
  3425.       (96,450){1,1}...{1,0}               % 15
  3426.       (242,511)--                    % 16
  3427.       (242,511){1,0}...               % 17
  3428.       (345,461){1,-1}...               % 18
  3429.       (365,333){0,-1}...               % 19
  3430.       (433,177){1,-1}...               % 20
  3431.       (624,98){1,0}...               % 21
  3432.       (888,231){1,1}...               % 22
  3433.       (1043,582){210,963}...               % *23
  3434.       (1098,1194){0,1}...{0,1131}          % 24
  3435.       (1098,2325){-42,13}...{-42,13}          % 25
  3436.       (1056,2338){-441,-195}...          % 26
  3437.       (886,2210){-1,-1}...               % 27
  3438.       (732,1861){0,-1}...               % 28
  3439.       (846,1643){1,-1}...               % 29
  3440.       (868,1536){0,-1}...{-1,-1}          % 30
  3441.       (839,1440)--cycle);               % 31
  3442.  
  3443. endchar(0);
  3444.  
  3445.  
  3446. "smuib";      % '174
  3447.  
  3448. %charbegin( 126, 1431h#, capheight*v#, baseline );
  3449. charbegin( 124, 1431h#, capheight*v#, baseline ); % DEK
  3450. n := 9;
  3451. t1 := 1;
  3452. t2 := 2;
  3453. t3 := 7;
  3454. t4 := 8;
  3455. t5 := 9;
  3456. t6 := 10;
  3457. t7 := 12;
  3458. t8 := 15;
  3459. t9 := 16;
  3460.  
  3461. adj_fill.A(9)                         % fixed x points
  3462.      (4, 6)                         % fixed y points
  3463.      ((1,3), (2,1), (4,2), (5,2))          % tied points
  3464.      ((3,7))                         % verticals
  3465.      ((2,8))                         % horizontals
  3466.      ((1273,2465){-262,-67}...{-262,-67}     % 0
  3467.       (1011,2398){-241,0}...{-241,0}          % 1
  3468.       (770,2398){-658,-114}...          % 2
  3469.       (494,2330){-433,-153}...          % *3
  3470.       (337,2245){-1,-1}...               % 4
  3471.       (245,2062){0,-1}...               % 5
  3472.       (259,1946){155,-849}...          % 6
  3473.       (286,1840){0,-1}...{-1,-1}          % 7
  3474.       (253,1767)--                    % 8
  3475.       (253,1767){-1,-1}...               % 9
  3476.       (154,1711){-1,0}...               % 10
  3477.       (62,1742){-1,1}...               % 11
  3478.       (-1,1878){0,1}...               % 12
  3479.       (166,2278){1,1}...               % 13
  3480.       (513,2474){845,265}...               % *14
  3481.       (1011,2543){1,0}...{577,-34}          % 15
  3482.       (1313,2532)--cycle);               % 16
  3483.  
  3484. n := 6;
  3485. t1 := 0;
  3486. t2 := 2;
  3487. t3 := 3;
  3488. t4 := 4;
  3489. t5 := 5;
  3490. t6 := 7;
  3491.  
  3492. adj_fill.B(1)                         % fixed x points
  3493.      ()                         % fixed y points
  3494.      ((1,5), (3,1), (4,3), (6,4))          % tied points
  3495.      ((2,5))                         % verticals
  3496.      ()                         % horizontals
  3497.      ((425,177){1,0}...               % 0
  3498.       (683,251){1,1}...               % 1
  3499.       (770,941){0,1}...{0,1457}          % 2
  3500.       (770,2398)--                    % 3
  3501.       (1011,2398){0,-1483}...          % 4
  3502.       (1011,915){0,-1}...               % 5
  3503.       (950,466){-323,-557}...{-1,-1}          % 6
  3504.       (750,177)--cycle);               % 7
  3505.  
  3506. n := 3;
  3507. t1 := 0;
  3508. t2 := 1;
  3509. t3 := 6;
  3510.  
  3511. adj_fill.C()                         % fixed x points
  3512.      ()                         % fixed y points
  3513.      ((1,5), (2,4))                    % tied points
  3514.      ()                         % verticals
  3515.      ((2,3))                         % horizontals
  3516.      ((425,177){325,0}...{325,0}          % 0
  3517.       (750,177){261,0}...               % 1
  3518.       (1011,177){1,0}...{626,169}          % 2
  3519.       (1397,226)--                    % 3
  3520.       (1428,186){-362,-291}...          % 4
  3521.       (770,2){-1,0}...{-449,0}          % 5
  3522.       (321,2)--cycle);               % 6
  3523.  
  3524. endchar(0);
  3525.  
  3526.